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PRODUCT ID: AC-TO97C-MC 
PRODUCT TITLE: CVTSCCO TSVOS CTRL PART 3 
DEPARTMENT: COMPUTER SPECIAL SYSTEMS/PGG 
DATE: AUGUST 23, 1985 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1983, 1985 BY DIGITAL EQUIPMENT CORPORATION 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


} a IS_A LSI-11 RESIDENT DIAGNOSTIC WHICH CHECKS ey FUNCTIONALITY 

OF TSVOS MAGTAPE SUBSYSTEM WHILE CONNECTED TO A LSI-11/23 SYSTEM 
CQBU us). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE aiee ce OIAGNOSTIC 


U wI 
ea DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRICr DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


LSI-11 PROCESSOR AND MEMORY 

CAUTION: aL wey 32K WORDS OF MEMORY 

(28K USEABLE I.E. I/0 PAGE 

TSVOS pe ln | SuésYSTEM CORIVE AND CONTROLLER) 

CONSOLE TERMINAL 

POP-11 DIAGNOSTIC SUPERVISOR CHSAAA.SYS VERSION 34 OR LATER) 
POP-11 DIAGNOSTIC LOADER/MONITOR (XXDP-+) 


1.3 RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XXDP+ USERS MANUAL; DOCUMENT NUMBER AC-F348E-MC 
DATE: 14 JULY 1980. 


2. TSVOS TRANSPORT SUBSYSTEM USER’S GUIDE; DOCUMENT NUMBER EK-TSVO5-UG-001 
DATE: AUGUST 1982 


3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001 
DATE: AUGUST 1982 


4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS-IN-001 
DATE: AUGUST 1982 


SEQ 0003 
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1.4 OIAGNOSTIC HIERARCY PREREQUISITES 
FUNCTIONAL LSI-11 CENTRAL PROCESSOR AND MEMORY 
CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP+) 
1.5 ASSUMPTIONS 
ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 
ie pee BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CVTSAA AND CVTSBA HAVE SUCESSFULLY RUN. 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE CONTINUE AT Le THAT WAS INTERRUPTED CAFTER tC) 
a CONTINUE FROM AN ERROR HALT 


RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY! ) 
ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 
CONSIDERED Vy unit ACTIVE AT START TIME 


DROP DEACTIVATE 

PRINT PRINT STATISTICAL ay ste Sg IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE ees. so 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START 


SEQ 0004 
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2.1.1 OPERATOR COMMANDS 


THE TSVOS a rare ot IS A LSI-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
CHQUS XXDP-+ AUSERS MANUAL ,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC MEDIA 


-R VTSC?? 

BIAG. R RUN- TIME SERVICES REV D. APR 79 
cvasTsvos LOGIC DIAGNOSTICssese 

=" Is TSVOS 

> 


2.2 SWITCHES 
THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR a 
ARE APPENDED TO THE LEG ANDS. ALL OF THE L 


HE T OF EACH 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD". 
SWITCH EFFECT 


/TESTS:LIST EXECUTE we? THOSE TESTS SPECIFIED IN 
THE Lest ones IS A STRING OF i 
NUMBER OR EXAMPLE - /TESTS:1:5:7-10. 
THIS “ty WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL not BE RUN. 
/PASS :DD000 EXECUTE DODOD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS tere FLAGS ARE DESCRIBED 
7EOP : DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (ODDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE Ete wartie ae 


:0: 
USE UNITS 0,5,10,11,12 CUNIT NUMBERS = 0- 63) 
EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-S5/PASS: 1000/E0OP : 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 hes a WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5" INSTEAD OF “/TESTS:1-5". 
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gated fs A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


TESTS PASS FLAGS EOP UNITS 


START x x x x x 
RESTART xX x os x x 
ONTI x x x 
PROCEED x 
i x 
PRINT 
DISPLAY 
LAGS 
ZFLAGS 
EXIT 
2.3 FLAGS 
FLAGS ARE USED TO SET UP [enone OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A STAR ss T 
FLAG SWITCH. THE COMMAND MAY ALSO BE USED TO CLE 
ALL FLAGS. WITH THE EXCEPTION OF T AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 
FLAG EFFECT 
HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 
LOE LOOP ON ERROR 
IER*s INHIBIT ALL ERROR REPORTS 
I6Re INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST evel CFIRST LEVEL CONTAINS 


ERROR T NUMBER, PC, TEST AND UNIT) 
IXE*s INHIBIT VEXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO‘ 5) 
PRI DIRECT MESSAGES TO LINE PRINTER 
PNT PRINT TEST NUMBER AS TEST EXECUTES 
BOE “BELL” ON ERROR 
UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 
ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


] 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 


Myles ihe REPORTING ) 
IOR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEQ 0006 
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SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH pL 3 FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE sg PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE: IER: BOE 
2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HAROWAR ARE INFORMATION By Y TYPING “CHANGE HW (L) ?” 

OU MUST ANSWER “Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). 


| 
! 
AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUSERVISOR) THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 
RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 
TSBA/TSOB = 172520, VECTOR = 224 


ON A “Y" CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
LEF a4 THE QUESTION MARK IS _ THE 


Pm RESPONSE. AN “CO OCTAL 
SOLICITED. mS bie INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE 
“y" FOR YES, “N” FOR NO. 


@ UNITS (D) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
wat © PRESENT TO BE TESTED> 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 
THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER 


OF 
UNITS CCONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SceLECTED FOR TESTING 


AS FOLLOWS: 
UP TO 4 TSVOS CONTROLLERS PER LSI-11 AND UP TO 2 DRIVES PER CONTROLLER 
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2.5 SOFTWARE QUESTIONS 
AFTER YOU HAVE ANSWERED be HAROWARE QUESTIONS OR AFTER A oe JL aid 


0 ANY PARAME Y TYPING 
“Y". THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ START, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE “Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 


2.6 EXTENDED P-TABLE DIALOGUE 
WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A_TABLE THAT ee rkere ts te eee UNDER TEST. THE SIMPLEST 


° OU HAVE S 
A_MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 
A DEV veer’ THE evils SUPPOSE THIS DEVICE Ist 


IS ONE HAROW I 
Q-FACTOR. THIS Q-FACTOR MAY BE O OR 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


@ UNITS (D0) ? 8<CR> 


T1 
CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 

T2 
SR ADORESS (0) ? “ere” 
SUB-DEVICE @ (0) .. 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 

3 


UNIT 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 
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G-FACTOR (0) 0? <CR> 


T 4 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
0? * crs 


CSR ADDRESS (0) ?. 160000<CR> 
SUB-DEVICE @ 5%? ? 4<CR> 


Q-FACTOR (0) 0 <CR> 

SS (0) ?_ 160000<CR> 
SUB-DEVICE @ (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 
UNIT 7 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE @ (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE @ (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 
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THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
be lruar ILO THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


@ UNITS (0) ? 8<CR> 


? 160000<CR> 
) ? 0,1<CR> 
? 1,0<CR> 


?. 160000<CR> 
? — 
> 


UNIT 7 

CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE @ $5? ?. 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE we stn | SERVICES WILL 
ule AS MANY ENTRIES AS IT CAN WITH THE INFORMATION i Sy IN ANY 
ONE PASS THROUGH THE TI 


QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE re ee nek ae AND Ore ta ORS wa SPECIFIED. THE 


i CAUSE FOUR S VICES FIED. 
“." CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
THE SECOND cE 
2, 3, 4 AND S WERE SPECIFIED. CIF THE SUB-DEVICE WERE SPECIFIED 
Y AOORE T EMENT WOULD BE B ADDRESSES MUST 
AN EVEN BOUNDARY.) THE C TOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 
@ UNITS (D0) ? 8<CR> 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ 33 2. 0-7<CR> 
Q-FACTOR (0) 0 °,. i, S.cccks 1<CR> 


As YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 








! 
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SEQ 0011 
2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE “START” 

S. ANSWER THE “CHANGE HW” QUESTION WITH “Y” 
6 

7 


. ANSWER ALL THE HARDWARE QUESTIONS 
. ANSWER THE “CHANGE SW” QUESTION WITH “N” 


WHEN YOU ay THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A OIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INF ORMAT ION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR oh yt 
SUCH _AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER“, “IBR” OR “IXR*“ FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 
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3.2 SPECIFIC ERROR MESSAGES 


BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNE CS FOR THE 
=< REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: 016 FIFO are ow TEST 
ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 


CVTSC HRD 
FIFO STATUS CIN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD #6: - DESIGNATOR <BIT @> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIDENT<11> IWER <8> IONL<5> IFBY<1> 
IRESVi<13> ICER <10> ISPEED<7> ILOP<4> IFPT<0> 


TAPE BUS SIGINALS IN WORD #9: 

DATMIS<7> ILW<6> OQUTROY<S> INRDY<4> 

MESSAGE BUFFER ADDRESS = 047352 

MESSAGE FER CONTENTS: 

WORD #0 E s 100020 CV: 100020 XOR: 000000 
WORD #1 EXPD: 000012 RECV: 000012 XOR: 000000 
WORD #2 EXPO: RECV: 000000 XOR: 000000 
WORD #3 EXPD: 000010 RECV: 000010 xXOR: 000000 
WORD #4 EXPD: RECV: 000000 xXOR: 000000 
WORD #5 EXPD: 000000 RECV: 000000 XR: 000000 
WORD #6 EXPD: 000000 RECV: 000000 xX. =: 000000 
WORD #7 EXPD: 000000 RECV: 000000 xXOR: 000000 
WORD #6 EXPD: 070217 RECV: 070217 XOR: 000000 
WORD #9 EXPD: 000074 RECV: 000034 xXOR: 000040 


ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE, IN THIS 
INSTANCE AN UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE 
CONTROLLER MAY BE DEFECTIVE. 


CVTSC HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
Tees et oe’ AFTER SPACE RECORDS COMMAND 
TSSR BITS SET: SC,.SSR 
TERMINATION CLASS CODE = UNRECOVERABLE ERROR 
DORE 026420 


PACKET A’ . 

PACKET WORD @ = 140010 
PACKET WORD @ = 000010 
PACKET WORD @ = 000000 
PACKET WORD @ = 000024 


SEQ 0012 








USER DOCUMENTATION MACRO YOS.02 Monday 16-Sep-85 13:41 Page 12-1 sea 0013 


ERROR MESSAGE EXAMPLE 3 


THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A 
REWIND WITH EXTENDED FEATURES MODE ENABLED. 


CVTSC HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 0233506 
MOT BIT CXSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE ) 
EXPD: 000312 RECV: 000112 XOR: 000200 
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4.0 PERFORMANCE AND PROGRESS REPORTS 

AT_THE END ¥ a one THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CANT Be USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (LSI-11) 


OR>STA/FLA: PNT: HOE 

UNITS (0) ? 1 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
pees ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” AND “HALT ON 


TST: 001 oe i cr te TEST 

TST: 002 rae -LINE 34 AND REWIND TEST 
TST: 003 BASIC WRITE DATA_TEST 

TST: 004 BASIC READ DATA TEST 

TST: OOS SPACE RECORDS TEST 

TST: 006 REREADS TEST 

TST: O07 WRITE DATA RETRY TEST 

TST: 008 WRITE TAPE MARK TEST 


0 ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT 
HAS BEEN SPECIFIED WITH THE “/PASS:” SWITCH. 


SEQ 0014 
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PROGRAM RUN TIMES 


THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. ee FIGURES ARE 
TO BE USED “ A_ GUIDE. THE TIMING WAS DONE ON A LSI-11 
PROCESSOR WITH A LA34 CONSOLE. 


THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN _ THE 
NO ant 1 IONS MODE, EACH TEST IS RUN ONCE, WITH or ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER TIMES INDICATED BY 
THE MTTERA TION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A “Y” (YES). 


TEST N/I NUMBER DEF 
— “— . ITER SECS. 


10 7 

3 8 S 

3 38 250 212 
4 60 300 240 
be} 60 300 240 
6 120 360 240 
7 120 600 480 
8 22 90 68 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 8 IN ONE COMMAND: 


Q.V 7 MINUTES 
DEFAULT 31 MINUTES 


SEQ 0015 
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S.0 DEVICE INFORMATION TABLES 
WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGES : 

CHANGE HW (L) ? 


@ UNITS (0) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS CCONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED iN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


IN ADDITION, ON A_START, RESTART OR CONTINUE THE SUPERVISOR 
yg hh CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 


CHANGE SW (L) ? 


INHIBIT ITERATIONS (L) N ? 


SEQ 0016 
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6.0 TEST SUMMARIES 


TEST 1: INITIALIZE #4 TEST 


THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
(I.E. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF 
EXTENDED FEATURES Sur cH, ETC.) 


TEST 2: OFF-LINE AND REJECT REWIND 


THIS TEST VERIFIES BASIC TAPE-MOTION COMMAND DECODING AND BASIC 
OPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT 
NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND — AN 
ARBITRARY POSTTION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 

CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST 
seputets REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 


TEST 3: BASIC WRITE DATA 


THIS TEST VERIFIES THAT THE WRITE DATA _CNEXT) COMMAND OPERATES 
OPERLY, UP te Th POINT OF CHECKING THAT THE Fe veer ACTUALLY 


Sst I 
LIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH 
THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS. 
eg ee mee te eee ae 
The -SI BUS drivers for all available address lines(16-21) 
are only checked m— running on a LSI-11 system with more than 
128K words of 
reel oe Bn oe 1 TD ee ea 


TEST 4: BASIC READ DATA CFORWARD AND REVERSE) 


THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
COMMANDS OPERATE PR 


P . VAR COMBINATIONS OF ODD AND 
DATA BUFFER BOUNDARIES, RECORD SIZES CUP TO 64K BYTES IF MEMCRY 
SPACE IS ete SanD BYTE-SWAP CONTROL ARE USED. THIS TEST 
OF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY 
READING AND venT ES WRITTEN DATA. ALSO TESTED ARE PROPER 
Mp eg J = EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA 

BUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC 
READ COMMAND, AND DATA BUFFERS INN NON-EXISTANT MEMORY 
snncnssnesonseoscossoooessssssonsososossoossesossossssasenseosees 

The LSI BUS drivers for all available address lines(16-21) 
are only checked — running on a LSI-11 system with more than 
128K words of 
Terk eemeea ani ee ee iciecnciesbitadeiseeeasinaiaceiaieiahletiiabldi iia aciiiaet d 


SEQ 0017 
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TEST S: SPACE RECORDS 


THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
RECOROS rae CATA REtonne AATS OPERATE PROPERLY WHEN SPACI 


OF VARYING SIZES Ss 

RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER 
EACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING 
THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
THE EXPECTED RESULT. 


TEST 6: REREADS 


THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT 
COMMANDS Ag ATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
DATA BUFFER BOUNORIES, ARECORD SIZES (UP TO 64K BYTES IF MEMORY 
SPACE IS gr Saar 3 BYTE-SWAP (SWP) AND OPPOSITE COPP) 
CONRTOL ARE USED ALS Te TESTED ARE PROPER TERMINATIONS ON 
EXCEPTIONAL _OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD 
LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES, 
AND DATA BUFFERS IN NONEXISTENT MEMORY 
CRSSASRRSREEESDOREREREEEEEEREREERERESEEEEEEEEEEEREERERERESEEERES 


CAUTI 

The LSI BUS drivers for all available address lines(16-21) 
are only checked a running on a LSI-11 system with more than 
128K words of : 
pnocensonennbonnnseonessonensesanesannsnesnesonnsnsonsenesnnsets 

TEST 7: WRITE DATA RETRY 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


TEST 68: WRITE/READ TAPE MARK 


THIS weet VERIFIES THAT THE WRITE TAPE on COMMAND OPERATES 
PROPE IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 
BY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE 
TAPE MARK. IN ADDITION, SINCE WRITE TAPE MARK IS THE FIRST 
SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS VERIFIED 
THAT we CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT 
FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 


SEQ 0018 





USER DOCUMENTATION MACRO YOS.02 Monday 16-Sep-85 15:41 Page 16 SEQ 0019 


| 7.0 MAINTENANCE HISTORY 


REVISION A - JUNE 1983 


REVISION B - JUNE 1984 
UPDATED FOR NEW ORION CPU PROBLEMS, RELATING TO TIMEOUT 
ERRORS (0311 & #320) ON REWINDS. 
ELIMINATED CPU ID MESSAGE. 


REVISION C - JUNE 1985 
UPDATED se PERF ORR CORRECTLY WITH XXDP V2.1 EXTENDED 


MONITOR (¢ 
840 .TITLE TSV2 - PROGRAM HEADER 
841 "SBTTL PROGRAM HEADER 
B42 000000 PSECT 
849 .MCALL SVC 
850 000000 Svc ; INITIALIZE SUPERVISOR MACROS 
851 -ENABLE LC 
852 “NLIST BEX,CND 
858 000000 “ENABL ABS,AMA 
859 002000 * =2000 
860 002000 BGNMOD TSv2 
002000 TSV2:: 
861 
862 soe 
863 ; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
e64 ; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
37> 
867 
868 002000 POINTER BGNSW,BGNSFT,BGNAU,BGNDU, BGNRPT 
869 002000 HEADER CVTSC.C,0.655. .0 
002000 LSNAME: : ;DIAGNOSTIC NAME 
103 .ASCII /C/ 
002001 26 [ASCII /V/ 
2 124 [ASCII /1/ 
002003 123 ASCII /S/ 
002004 103 ASCII /C/ 
2005 000 BYTE 
002006 000 "BYTE 0 
7 000 "BYTE 0 
002010 LSREV:: ;REVISION LEVEL 
002010 103 .ASCII /C/ 
11 L$DEPO: : :0 
002011 060 .ASCII /0/ 
12 LSUNIT:: ;NUMBER OF UNITS 
002012 000000 .WORD 0 
002014 LSTIML: : ;LONGEST TEST TIME 
002014 001217 .WORD 655 
002016 LSHPCP:: ;POINTER TO H.W. QUES. 


00201 . WORD 
002020 L$SPCP:: sPOINTER TO S.W. QUES. 
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| SEQ 0020 
PROGRAM HEADER 
002020 113742 .WORD LSSOFT 
002022 LSHPTP:: 3PTR. TO DEF. H.W. PTABLE | 
002022 002146 -WORD LSHW 
002024 LSSPTP:: 3sPTR. TO S.W. PTABLE 
002024 002156 -WORD LS$SW 
002026 L$LAOP:: ;DIAG. END ADDRESS 
002026 114404 _.WORD LS&LAST 
002030 LSSTA:: sRESERVED FOR APT STATS 
002030 000000 -WORD 0 
002032 L$CO:: 
002032 000000 ‘ Dp © 
002034 LSDTYP:: sDIAGNOSTIC TYPE 
002034 000000 -WORD O 
002036 LSAPT:: 3;APT EXPANSION 
002036 000000 P D 
002040 LSOTP:: 3PTR. TO DISPATCH TABLE 
002040 002124 .WORD LSDISPATCH 
002042 L$PRIO:: sDIAGNOSTIC RUN PRIORITY 
002042 C00000 ’ D O 
LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 
002044 000000 -WORD O 
002046 LSEXP1:: ;EXPANSION WORD 
002046 000000 -WORD O 
LSMREV:: 3SVC REV AND EDIT @ 
003 .BYTE C$REVISION 
002051 003 -BYTE CSEDIT 
LSEF:: ;DIAG. EVENT FLAGS 
002052 000000 -WORD O 
002054 000000 -WORD O 
002056 LSSPC:: 
002056 000000 -WORD O 
002060 L$DEVP:: ; POINTER TO DEVICE TYPE LIST 
002060 003372 .WORD LSDVTYP 
002062 LSREPP:: ;PTR. TO REPORT CODE 
002062 023574 -WORD LS$RPT 
002064 LSEXP4:: 
002064 000000 -WORD O 
002066 LSEXPS:: 
002066 000000 -WORD O 
002070 LSAUT:: 3PTR. TO ADD UNIT CODE 
002070 023262 -WORD LSAU 
002072 L$DUT:: 3PTR. TO DROP UNIT CODE 
002072 023360 ‘i D LsDU 
002074 LS$LUN:: 3;LUN FOR EXERCISERS TO FILL 
002074 000000 F D oO 
002076 LSDESP:: sPOINTER TO DIAG. DESCRIPTION 
002076 003400 .WORD LSDESC 
002100 L$LOAD:: :GENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT ESLOAD 
002102 LSETP:: sPOINTER TO ERRTBL 
002102 000000 -WORD O 
002104 LSICP:: 3PTR. TO INIT CODE 
002104 022466 .WORD LS$INIT 
002106 LSCCP:: :PTR. TO CLEAN-UP CODE 
002106 023546 -WORD LSCLEAN 
002110 LSACP:: ;PTR. TO AUTO CODE 


002110 023466 -WORD LSAUTO 
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LSPRT:: 

LSTEST::. 
LSOLY:: — 
LSHIME: : | 


L$PROT 
0 
0 
0 


sPTR. TO PROTECT TABLE 
s TEST NUMBER 

s;DELAY COUNT 

sPTR. TO HIGH MEM 


SEQ 0021 





| 
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SEQ 0022 | 
DISPATCH TABLE 
ere -SBTTL DISPATCH TABLE 
gee 
874 3; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
ar2 : IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
jee 
677 002122 [6 8 
002122 000010 
002124 LSOISPATCH: : 
002124 024356 WOR T1 
1 025472 WORD Te 
002130 030152 ~ WORD T3 
002132 035332 - WORD T4 
002134 047576 - WORD 5 
2 056524 .WORD T6 
002140 076106 .WORD 7 
evs 002142 106144 WORD T8 
679 -SBTTL DEFAULT HARDWARE P-TABLE 
880 36 
881 : THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
882 ; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
as : IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
g°* 
685 002144 BGNHW OFPTBL ;DEFAULT HARD-P-TABLE 
002144 000003 WORD L10000-L $HW/2 
002146 LSHW:: 
002146 OFPTBL:: 
886 002146 172520 . WORD 172520 3: 1ST COF 2) REGISTERS. 
887 002150 000224 . WORD 224 : INTERRUPT VECTOR 
8688 002152 000200 . WORD PRIO4 3: INTERRUPT PRIORITY. 
889 002154 ENOHW 
1 L10000: 
690 
Sos -SBTTL SOFTWARE P-TABLE 
soe 
693 3; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
eos ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
gee 
896 002154 BGNSW SFPTBL 
002154 000004 .- WORD L10001-L$SW/2 
002156 L$SW:: 
002156 SFPTBL:: 
897 002156 000000 TRANSTST:: . WORD 0 : ENABLE TEST OF Mee om mlb IF =1 
898 002160 000000 NOITS:: . WORD 0 : INHIBIT grenataow OPTION 
899 : ... O = ITERATE. 
3 -NZ = INHIBIT ITERATE. 
901 002162 000017 LERRMAX: : . WORD $3. 3 LOCAL (PER TEST) ERROR LIMIT 
902 002164 000310 GERRMAX: : WORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 
903 002166 ENOSW 
002166 L10001: 
os 002166 ENOMOD 
914 -TITLE TSV3 - GLOBAL AREAS 
333 -SBTTL GLOBAL EQUATES SECTION 


926 
927 002166 BGNMOD TSV3 
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SEQ 0023 
GLOBAL EQUATES SECTION 
928 002166 TSV3:: 
bs 34 -SBTTL GLOBAL EQUATES SECTION } 
931 oe | 
932 ; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
933 ; ARE USED IN MORE THAN ONE TEST. 
33$ ei 
939 002166 EQUALS ; GET STANDARD EQUATES. 
3 
3 BIT DIFINITIONS 
100000 BIT15== 100000 
BIT14== 40000 
BIT13<«= 
010000 BIT12== 10000 
004000 BIT1i== 4000 
BIT10«= 
001000 BITO9== 1000 
BITOS== 
BITO7== 200 
000100 BITO6== 100 
BITOS== 40 
BITO4== 
000010 BITO3== 10 
BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
3 
001000 BIT9*= BITOS 
000400 BITS8== BITOSs 
BIT7*= BITO7 
000100 BITé6== BITO6 
BITS== BITOS 
BIT4== BI 
000010 BIT3== BITO3 
BIT2== BITO2 
000002 BITi== BITO1 
000001 BITO== BITOO 


: EVENT FLAG DEFINITIONS 
;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


H 
000040 EF .START=s= 32. s START COMMAND WAS ISSUED 
000037 EF .RESTART== 31. 3 RESTART COMMAND — ISSUED 
000036 EF .CONTINUE== 30. s CONTINUE COMMAND W 
000035 EF .NEW== 29. : A NEW SASS HAS BEEN STARTED 
34 EF .PWR== 28. ; A POWER-FAIL/POWER-UP OCCURRED 


000340 PRIO7== 340 
000300 300 
000240 PRIOS== 240 

200 
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GLOBAL EQUATES SECTION | 


000140 PRIO3== 140 
000100 PRIO2=«= 100 ' 
000040 PRIO1== 40 ! 
000000 PRIOO== 0 
3 f 
sOPERATOR FLAG BITS 
000004 EvL== a 
000010 LOT«= 10 
000020 ADR== 20 
I0VUe= 40 
000100 ISR== 100 
UAM=s= 
BOE== 400 
001000 PNT== 1000 
PRI==2 
IXEes 4000 
010000 IBE== 10000 


940 
941 002166 , ;DEFINE MEMORY MANAGEMENT REGISTERS 
SBTT MANAGEMENT DEFINITIONS 


° lL. MEMORY 
3#K111 VECTOR ADDRESS 


900250 MMVEC= 2 
s#KT11 STATUS REGISTER ADDRESSES 
177572 SRO= 177572 
177574 SRis 177574 
177576 SRee 177576 
172516 aS 172516 


UIPARS= 177646 
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SEQ 0025 
MEMORY MANAGEMENT DEFINITIONS 


* 
Bo 
a 

2 
i=] 

2 
2 
m 
w 
(7) 
D 
m 
oO 
mH 
wn 
~ 
m 
D 
w 


172214 
SIPOR?7= 172216 
peSUPERVISOR “D” PAGE DESCRIPTOR REGISTERS 


-ENDC 
s@SUPERVISOR “I” PAGE ADDRESS REGISTERS 
SIPARO= 1 


IF 
@SUPERVISOR “D” PAGE ADDRESS REGISTERS 
SDPARO= 172260 


1 
SOPAR7= 172276 
ENOC 
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SEQ 0026 
MEMORY MANAGEMENT DEFINITIONS | 
.ENDC | 
;@KERNEL “I" PAGE DESCRIPTOR REGISTERS 
172300 KIPORO= 172300 
172302 KIPDRi= 172302 
172304 KIPOR2= 172304 
KIPORS= 
172310 KIPOR4= 172310 
172312 KIPDRS= 172312 
172314 KIPOR6* 172314 
172316 KIPOR7* 172316 
IF NB 
seKERNEL °D° 
DESCRIPTOR REGISTERS 
KOPOR1* 172322 
eB 
KDPDAS? 172326 
KDPOR4* 172330 
KDPORS= 172332 
KDPOR6= 172334 
KOPOR7= 172336 
;@KERNEL “I* PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 





j 
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TSVOS REGISTER AND PACKET DEFINITIONS 


946 

947 

948 

949 

950 

951 

952 

953 0 

954 177560 

955 177562 

956 177520 

957 

958 

959 

960 

961 

962 100000 

963 040000 
C20000 

965 010000 
004 

967 002000 

968 001400 

969 000200 

970 000100 

971 00006 

972 000016 

973 

974 

975 

976 

977 

978 

979 

980 

961 100000 

982 040000 

983 020000 

984 010000 

985 004000 

986 002000 

987 001000 

988 0004 

989 000200 

990 000100 

991 00004 

992 000020 

993 000010 
000004 

995 000002 

996 000001 


-SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 


3 
s SOME GENERAL EQUATES. 
6 


ERRVEC== é ; POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
TTIVEC== 60 s INTERRUPT VECTOR FOR CONSOLE INPUT 
TTICSR== 177560 + BUS ADDRESS OF C 

TTIBFR== 177562 s CONSOLE INPUT DATA BUFFER 

BOVPCR== 177520 s BDV11 PAGE CONTROL REGISTER 


Sf 
;BIT DEFINITIONS FOR TSSR REGISTER 
t- 


SC= BIT15 sSPECIAL CONDITION 

BIE= B1IT14 sBUS_ INTERFACE ERROR 

SCE= B1IT13 sSANITY CHECK ERROR 

RMR= BIT12 sMODIFICATION REFUSED 

NXM= BIT11 sNONEXISTANT MEMORY ERROR 
NBA= B1IT10 sNEED BUFFER ADDRESS 

HIADDR= gs leierre TEXTENDED ADORESS BITS 

SSR= BIT 3SUB SYSTEM READY 

OFL= I1¢ sOFF LINE BIT 

FATERR= BIT4!BITS tPATAL TERMINATION ERROR CODES 


TERCLS= BIT3!BIT2!:BIT1 ;TERMINATION CODES 

3¢ 

: 

;B8IT DEFINITIONS FOR EXTENDED STATUS REGISTER O 
3(XSTO) 


XSOTMK= BIT15 s TAPE MARK DETECTED 
XSORLS= BIT14 sRECORD LENGTH SHORT 
XSOLET= BIT13 sLOGI END OF TAPE 
XSORLL= BIT12 sRECORD LENGTH LONG 
XSOWLE= BIT11 sWRITE LOCK ERROR 
XSONEF= BIT10 sNON EXECUTABLE FUNCTION 
XSOILC= BITS sILLEGAL COMMAND 
XSOILA= BITS sILLEGAL ADORESS 
XSOMOT= BIT7 sTAPE IN MOTION 
XSOONL* BIT6 s TRANSPORT ON LINE 
XSOIE= BITS s INTERRUPT ENABLE 
XSOVCK= BIT4 BIT 
XSOPED= BITS sPHASE ENCODED ORIVE 
XSOWLK= BIT2 sWRITE LOCKED 
XSOBOT= BIT1 sBEGINNING OF TAPE 
XSOEOT= BITO sEND OF TAPE 
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SEQ 0028 
TSVOS REGISTER AND PACKET DEFINITIONS 
998 34 
| 999 ;8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
| 1000 3(XST1) 

1001 b; 
| 1002 100000 X1.0LT = BIT15 sone LATE j 

1003 040000 X1. SPARE = BIT14 altte 

1004 020000 X1.COR = BIT13 ECTABLE DATA ERROR 

1005 017375 X1.MBZ = BITES cart ORES TABLE DATA ERROR es serresBzT0 sALWAYS O 

1006 000400 X1.RBP = BITS sREAD BUS PARITY ERROR 

rod 000002 X1.UNC © BITL J UNCORREC TABLE DATA OR HARD ERROR 

1009 se 

1010 468IT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 

1013 3(xST2) 

ge 

1013 100000 X2.0PM = EE fy IN PROGRESS (TAPE MOVING) 

1014 040000 X2.RCE = BIT1 tite CHECKSUM ar 

1015 035400 X2.SPARE= BT Tis BIT12-61 Oe uy USED BY TSVOS CALWAYS=0) 

1016 €02000 X2.WCF = BIT10O WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 

1017 000200 X2.EXTF = BIT7 tIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 

1018 000100 X2.BUFE = BIT6 ;IF WRITE CHAR CMD THEN = BUFFERING ENABLED 

1019 000077 X2.REV = 000077 :IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 

‘er 000007 X2.UNIT = BIT2+BIT1+BITO. 3IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 

1022 3° 

1023 ;B8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 

1035 3(XST3) 

x3 

1026 177400 X3.MDE = 177400 sMICRO- rags te. ERROR CODE 

1027 000200 X3.SPARE= BIT7 sNOT USED BY TSVOS 

1028 000100 X3.0PI = BIT6 i OPERATION INCOMPLETE 

1029 000040 X3.REV = BITS sREVERSE 

1030 000020 X3.TRF = BIT4 ; TRANSPORT RESPONSE FAILURE 

1031 000010 xX3.0CK = BITS sDENSITY CHECK 

1032 000006 X3.MB8Z *=BIT2+BIT1 ;NOT USED ALWAYS 0 

ray 000001 X3.RIB = BITO sREVERSE INTO BOT 

1035 3¢ 

1036 ;B8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 

1037 3(XST4) 

1038 $- 

1039 100000 X4.HSP = BIT1S ao lk SPEED 

1040 040000 X4.RCE = BIT14 sRETRY COUNT EXCEEDED 

1041 020000 X4.TSM = BIT13 s TRANSPORT SPECIAL MODE 

1042 017400 X4.MBZ = BI112-BIT11+B1110-B119-B118 sNOT USED ALWAYS O 

1083 000377 X4.WRC = 000377 WRITE RETRY COUNT FIELD 

1045 3° 

1046 F 

1047 ;TSSR TERMINATION CODES (BIT 0-2) 

1048 : 

1049 :- 

1050 

1051 000006 TSREJ= 302 ;COMMAND REJECTED 

1052 000006 UNREC= 6 sUNRECOVERABLE ERROR 
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| 
| 1054 ¢ 
1055 ’ 
1056 sDEVICE REGISTER OFFSETS 
1057 3 
1058 ‘- 
| 1059 
1060 000000 TSBAs= 0 
1061 000000 TSOB== O :TSOB/TSBA REGISTER 
1062 000001 TSBAH== 1 
1063 000001 TSOBH== 1 :TSOB/TSBA REGISTER HIGH BYTE 
1064 000002 TSSR==* 2 sTSSR REGISTER 
poe 000003 TSSRH== 3 sTSSR REGISTER HIGH BYTE 
1067 3° 
ror : TSOB ADDRESS BIT DEFINITIONS 
ge 
edt 000003 A1716 = BIT1+BITO sADDRESS BITS 17:16 ARE IN 1:0 
1072 3° 
1073 : COMMAND DEFINITIONS 
1075 000017 P.GETSTAT = 17 :GET STATUS 
1076 000013 P.INIT = 13 s INITIALIZE 
1077 000012 P. CONTROL = 12 con ROL COMMANDS 
1078 000011 P .FORMAT = 11 
1079 000010 P. POSITION = 10 ; POSITION 
1080 000006 P.WRTSUB = 6 sSUBSYSTEM WRITE 
1081 000005 P. WRITE « 5 3 
1082 000004 P.WRTCHAR = 4 s;sWRITE CHARACTERISTICS 
1083 000001 P.READ = 1 ;READ 
1084 
1085 i¢ 
108? ; COMMAND PACKET HEADER WORD BIT DEFINITIONS 
ge 
1088 100000 P.ACK = BITI5 sgurene AVAIL FOR CONTROLLER 
1089 040000 P.cCVC = BIT14 LEAR VOLUME CHECK 
1090 020000 P.OPP «= BIT13 iREVERSE SEQUENCE OF DATA BITS 
1091 010000 P. SWB = BIT12 rt AP BYTES IN MEMORY 
1092 007400 P.MODE = BIT11!BIT10!B61 pt COMMAND MODE FIELD 
1093 000 P.IE = BIT7 ENABLE 
1094 000140 P.FMT= BIT6!eITS iPACKET HEADER TYPE CALWAYS=0) 
iene 000037 P.CMD = 37 MAJOR COMMAND FIELD 
096 ;¢ 
road ; CONTROL COMMAND MODE CODES 
ge 
1099 000000 PC. RELEASE = 02256 sRELEASE BUFFER 
1100 PC.REWIND = 12256 ;REWIND 
1101 001000 PC .NOOP = 22256 3NO- 
1102 2 PC. IEREW = 42256 sREWIND IMMEDIATE INTERRUPT 
1103 002400 PC. ERASE = 5*«256 sSECURITY ERASE 


SEQ 0029 
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° 
; CONTROLLER RAM DEFINITIONS 


RHCHBEG = 167 sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
RMCHEND = 200 sCHARACTERISTICS IO DATA END RAM ADDRESS 
RMPKTBEG= 201 : COMMAND ya BEGIN RAM ADDRESS 
RMPKTEND= 210 sCOMMAND PACKET END RAM ADDRESS 

RMMSGBEG= 215 sMESSAGE BUFFER BEGIN RAM ADDRESS 
RMMSGEND= 234 sMESSAGE BUFFER END RAM ADDRESS 


3¢ 


;REGISTER DEFINITIONS IN THE MESSAGE BUFFER 
3 
ge 


xSTO*#= 6 sEXTENDED STATUS REGISTER O CWORD 4) 
XSTi== 6. sEXTENDED STATUS REGISTER 1 CWORD 5) 
XSf2*= 10. sEXTENDED STATUS REGISTER 2 (WORD 6) 
XST3*= 12. sEXTENDED STATUS REGISTER 3 (WORD 7) 
XST4*= 14. sEXTENDED STATUS REGISTER 4 (WORD 8) 


3¢ 
;OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 


PKLOW = 2 sLOW ORDER CHARACTERISTIC DATA POINTER 
PKHI 2 4 sHIGH ORDER ras Ut th DATA POINTER 
PKBCNT = 6 sNUMBER OF BYTES IN DATA PACKET 
EXBCNT=10 sNUMBER OF BYTES IN EXTENDED DATA PACKET 


Sa 
;DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 


BSELO =0 sBYTE O 
BSEL1 *=1 sBYTE 1 
SEL2 se sWORD 2 
SELDATA = 4 sWORD 3 
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| SEQ 0031 
TSVOS REGISTER AND PACKET DEFINITIONS 
1146 te | 
1147 }BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND | 
1149 000000 Pw. = 0 -oP 
| 1150 000001 PW-RDRAM 21 ;READ RAM 
1151 000002 PW WTRAM =2 WRITE RAM 
1152 000003 PU RFIFO -3 READ FI 
1153 000004 PW/WFIFO = 4 WRITE FIFO 
1154 000005 PW: ROSTAT 25 }READ STATUS 
1155 Pw 26 \WRITE TAPE CONTROL 
1156 000007 PW MET 27 WRITE TAPE FORMAT 
1157 000010 PW/WMISC = 10 WRITE MISCELLANEOUS 
11 000011 PW: * 11 ;}WRITE NPR CONTROL 
1159 000020 PW.022 = 20 {00 MICROTEST 22 
11 000021 PW:011 = 31 {00 MICROTEST 11 
1161 000022 PW.013 = 32 00 MICROTES 
11 000023 PW:NO1311 = 33 }OISABLE MICROTEST 11 A 
1163 000024 PW ROEXT = 24 }READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 
1165 
1166 BSEL1 CODES FOR WRITE TAPE CONTROL 
i- 
1168 000200 WC. IFAD = BIT7 :IFAD - FORMATTER ADDRESS 
1169 000100 wc TOTAD = BIT6 }ITADO - TRANSPORT ADORESS BIT 0 
1170 000040 we T1T = BITS {ITAD1 - TRANSPORT ADDRESS BIT 1 
1171 00002 WC TSRESV = BITS SIRESVS - RESERVED @5 
1172 000010 uc. TREW = BIT3 sIR > REWIND 
1173 000004 WC TRWU = BIT2 ;IRWU  - REWIND AND UNLOAD 
1174 000002 WC IFEN = BIT1 }IFEN - FORMATTER ENABLE 
1175 000001 we IGO = BITO iGO 
1176 
1177 ss 
1178 }BSEL1 CODES FOR WRITE FORMAT 
i- 
1180 000200 WF . IHTSP = BIT7 :IHISP - HIGH SPEED 
1181 000100 WF LIWRT = BIT6 ‘IWRT -- WRITE 
1182 000040 WF IREV = BITS }IREV  - REVERSE 
1183 000020 uF LIWEM = BIT4 7 : WRITE FILE MARK 
1184 000010 WF IEDIT = BIT3 }IEOIT - EDiT 
1185 000004 WF: TERASE = BIT2 IERASE - ERASE 
1186 000002 WF LT3RESV = BIT1 SIRESVS - RESERVED 43 
1187 000001 UF T4RESV = BITO TIRESV4 - RESERVED 04 
1189 3¢ 
1190 IBSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 
t- 
1192 000200 MS .EX = BIT7 LINVERT. SENSE OF EXTENDED FEATURES SWITCH 
1193 000020 MS .RSFIFO = BIT4 RESET FIFO AND INPUT PARITY ERRORR 
11 000010 MS __RSTAPE = BIT3 RESET TAPE STATUS IN 2 FLIP-FLOPS 
1195 000006 MS ATTN * BIT2!6I1T1 ATTENTION TRIGGER FIELD 
1196 000001 MS_RSD = BITO ;RESET TIMER A.B THEN DELAY TIMES IN SEL2 
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TSV3 - GLOBAL AREAS 


1198 

1199 

1200 

1201 000000 
1202 000002 
1203 000004 
1204 000006 
1205 

1206 

1207 

1208 000200 
1209 000100 
1210 000040 
1211 000020 
1212 

1213 

1214 

1215 

1216 c00200 
1217 000100 
1218 000040 
1219 000020 
1220 000010 
1221 000004 
1222 000003 
1223 100000 
1224 040000 
1225 020000 
1226 010000 
1227 000 
1228 002000 
1229 001000 
1230 000400 
1231 000200 
1232 000100 
1233 000040 
1234 000020 
1235 000010 
1236 000004 
1237 000002 
1238 000001 


MACRO YOS.02 
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o 
; MS.ATTN SUBCODES 
t- 


MSA.FRAM= 3e2 


NO-OP CNOTHING TRIGGERED ) 


3¢ 
3; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 


NP .IR * BIT? 
NP .OUT = BIT6 
NP .LOOP * BITS 
NP .WRP = BIT4 


sINTERRUPT REQUEST (0-1 TRANSITION) 

s TAPE DATA DIRECTION ouT (O= IN) 

sENABLE TRANSPORT LOOPBACK 

sWRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 


3¢ 
s READ STATUS MESSAGE BUFFER BIT DEFINITIONS 


S2.0IM = BIT7 
-ILwW = BIT6 
S2.OQUTRDY * BITS 
S2.INRDY = BIT4 
S2.ATIMR = BITS 
S2.BTIMR = BIT2 
- UNDE = BIT1+BITO 
$1.PARIN = BIT15 
$1.I2RESV = BIT14 
$1.IiRESV * BIT13 
- ITEOT * BIT12 
$1. IIDENT * BIT11 
. ICE = BIT10 
$1. IFMK = BITS 
. IHER = BITS 
SO. ISPEED = BIT7 
- IRDY = BIT6 
- TONL = BITS 
SO. ILOP = BIT4 
SO. IDBY = BITS 
SO. IRWD = BIT2 
SO. IFBY = BIT1 
SO.IFPT = BITO 


WORD #9 BYTE 2 DATA IN MISS 
ILW H 


OUT RDY H 

IN ROY H 

TIMER A FLAG H 

TIMER B FLAG H 
CUNDEF INED ) 


WORD #8 BYTE 1 PARIN H 
IRESV2 


WORD #8 BYTE 0 Sag H 


= ee ee Ge G* Ge oe Ge G* Ge Ge Ge GF Ge Ge Ge Ge Ge GF Ge Ge Ge Ge 
+ 
% 
r 4 
4 
=z 





SEQ 0032 
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SPECIAL MACROS AND OPDEFS. 


SEQ 0033 


-SBTTL SPECIAL MACROS AND OPDEFS. 


* 
SAVE GENERAL REGS 1 TO 5 
t- 


-MACRO SAVREG 
JSR RS ,REGSAV 


3¢ 

; MACRO TO FORCE AN ERROR 

> Toad 

“MACRO FORCERROR TAG ,NOTSSR 

“IIF NOF LISTALL, .NLIST 

“LIST 

[IF 8 NOTSSR 
MOV 


enc TSSRCRS),R1 sREAD TSSR 
MOV FORCER,FORCER ;IS FCRCER SET? (LEAVE C BIT ALONE) 
BNE TAG :BR IF YES 

-NLIST 

.ITIF_NOF LISTALL, .LIST 

-LIST 

-ENOM 


s¢ 

s MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 

‘ WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

; SO TO FORCE a AND EXIT ON 1 ERROR SET 

i FORCER TO 17777 

3 TO FORCE ERRORS “AND ITERATIONS SET FORCER TO 1. 


| iad 

-MACRO FORCEXIT TAG 
»-NLIST 

-IIF_NOF LISTALL, .NLIST 
-LIST 


MOV FORCER,FORCER ;IS FORCER NEGATIVE? 
BMI TAG 3BR IF YES 

-NLIST 

-ITIF_NOF LISTALL, .LIST 

-LIST 


"ENDM 

- 

i MACRO TO INCREMENT ERROR COUNTS 

-MACRO NEXT. ERRNO 

t23.1IF NOF LISTALL, .NLIST 
ERRNO=ERRNO+1 

+23-IIF NOF LISTALL, .LIST 

“LIST 
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| SEQ 0034 
SPECIAL MACROS AND OPDEFS. 

1295 3¢ 

1296 sMACRO TO PERFORM XOR 

1297 s- 

1298 

1299 -MACRO xXOR A.B 


} 
H 
} 

1300 MOV A,-CSP) 

1301 BIC 8.(CSP) 

1302 BIC A.B 

1303 BIS (SP)+,8 

1304 -ENDM 

1305 


1306 000000 EN=0 3; INITIALIZE ERROR NUMBER 
| 1307 .SBTTL FORCER - FORCE ERROR FLAG 
1309 3 
1310 3; THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
Hitt] s TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 
3 


3 
1314 002166 000000 FORCER: : te) s FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
1315 s - BY THE MACRO “IFERROR”). AN ERROR NEED NOT 
1316 ; - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 
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SEQ 0035 
| GLOBAL DATA SECTION 
1318 .SBTTL GLOBAL DATA SECTION 
1820 ! 
1321 i THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
1322 3IN MORE THAN ONE TEST. 
1323 s-- 
133s 
1326 i THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
1327 ;SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 
1329 002170 000000 EPRTSU: : .WORD 0 sPRINT SWITCH 
1330 002172 000000 UNITN: : .WORD 0 ;UNIT @ UNDER TEST. 
1331 002174 000000 QvP:: WORD 0 }QUICK VERIFY FLAG. 
1332 002176 000000 CSRADOR: : WORD O sADDRESS OF CSR FOR CURRENT DEVICE 
1333 002200 000224 IVEC:: .WORD 224 INTERRUPT VECTOR 
1334 002202 000200 IPRI:: .WORD PRIO4 ;INTERRUPT PRIORITY 
1335 002204 000000 TSTCNT:: WORD O ;NUMBER OF TESTS RUN IN THIS PASS 
336 002206 C00000 LOOPCNT: : .WORD 0 + REMAINING ITERATION COUNT FOR TEST 
1337 002210 000000 .WORD O sNUMBER OF DEVICE UNDER TEST 
000000 FATFLG: : . WOR’ 0 3SET IF FaiaL ERROR IS DETECTED IN TEST 
1339 002214 000000 INTRECV: : .WORD 0 3SET IF INTERRUPT WAS RECE 
340 002216 000000 EXTFEA:: . WOR 0 sEXTENDED FEATURES SOF TW. SW O=OFF ;1=0N 
002220 000000 BENBSH: : .WORD 0 sBUFFER ENABLE SWITCH SW O=OFF;1=0N 
1342 002222 000000 EXPO: : .WORD O sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
000000 RECV:: .WORD O ;RECEIVED RAM DATA FOR PRAMPKT ROUTINE 
000000 ERRHI: : . WOR 0 sHIGH ADDRESS MEMORY ERROR 
1345 002230 000000 ERRLO: : .WORD 0 a S ME 
1346 002232 RAMDATA: : .BLKW 16 s;DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
1347 002272 000000 RAMSIZ: : . WOR 0 sRAM DATA SIZE FOR PRAMPKT ROUTINE 
1348 002274 000000 RCVHIADD: : .WORD 0 sRECEIVED BUFFER HIGH ADDRESS 
1349 002276 000000 RCVLOADD: -WORD O RECEIVED BUFFER LOW ADORESS 
000000 COUNT: : WORD 0 sTEST COUNT PATT 
1351 002302 000000 DATA:: WORD O sTEST DATA 
1352 002304 000000 TSTFLAG:: .WORD 0 sTEST FLAG WORD 
1353 002306 000000 TSTPTR:: WORD 0 sTSTBLK POINTER 
1354 002310 000000 PRMNO: : -WORD 0 sPRINT ROUTINE TEMP 
1355 002312 EXPMSG: : .BLKB 100. EXPECTED MESSAGE BUFFER DATA 
1356 002456 RECMSG: : -BLKB 100. ;RECEIVED MESSAGE BUFFER DATA 


1357 002622 TMPBFR: : -BLKB 60. s TEMPORARY STORAGE FOR PRINT 





| 
! 
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SEQ 0036 
TSTBLK - TEST DATA TABLE 
1359 .SBTTL TSTBLK - TEST DATA TABLE | 
1360 
tt : | 
3 
1363 ;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
3 ' 
1365 sIN SEQUENCE THE DATA IS: 
1367 : ALL ZEROS 
1368 ; ALL ONES 
1369 ; WALKING ONES 
1370 ; WALKING ZEROS 
1371 : ALTERNATING ONES AND ZEROS 
1372 : 
1373 s- 
1374 
1375 002742 TSTBLK: : 
1376 002742 000000 .WORD 0 ;ALL ZEROS 
1377 002744 177777 ‘WORD 177777 ;ALL ONES 
1378 002746 000001 “wORD ITO ;DATA FOR WALKING ONES 
1379 002750 000002 “WwORD  BIT1 
002 000004 WORD BIT2 
1381 002754 000010 WORD BITS 
1382 002756 “WORD BITS 
1383 002760 "wORD BITS 
002762 000100 “WORD BIT6 
1385 002764 “WORD BIT? 
1386 002766 000400 "WORD 6178 
1387 002770 001000 "wORD BIT9 
1388 062772 002000 “WORD BIT10 
1389 002774 004000 WORD BITi1 
1390 002776 010000 "WORD BIT12 
1 003000 020000 WORD BIT13 
1392 003002 040000 "WORD BIT14 
1393 003004 100000 "WORD 61T15 
1394 003006 177776 "WwORD tCBITO ;DATA FOR WALKING ZEROS 
1395 003010 177775 “WORD rCBIT1 
13 177773 "WORD tCBIT2 
1397 003014 177767 "WORD tCBITS 
1398 003016 177757 "WORD tCBIT4 
13 177737 "WORD tCBITS 
400 003022 177677 "WORD  tCBIT6 
1401 177577 “WORD tCBIT 
177377 "WORD *tCBITS 
1403 003030 176777 "WORD  tCBIT9 
003032 17577 “wORD © tCBITI0 
1405 003034 173777 "WORD tCBIT11 
406 003036 167777 WORD  tCBIT12 
1407 003040 157777 WORD  ¢CBIT13 
408 003042 137777 "WORD *CBIT14 
1409 003044 077777 "WORD tCBIT1S 
1410 003046 125252 "WORD 125252 ;ALTERNATING ONES, ZEROS 
1411 003050 052525 052525 ;ALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


003052 TBLEND==. 
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GLOBAL ENVIRONMENT STORAGE 


SEQ 0037 


1414 .SBTTL GLOBAL ENVIRONMENT STORAGE | 
i i 
1416 {STORAGE FOR DEVICE REGISTERS 
1418 003052 000000 100000 000000 BUMMY: 0,100000,0,0 | ;DUMMY DEVICE REGISTERS... 
1419 003062 000000 000000 000000 0:0,0,0,0,0,0,0 
;...FOR MULTI-UNIT CHECKOUT. 

1422 003102 000000 DUFLG: : WORD 0 :"DROPPED UNIT” FLAG. 
i SINHIBITS CODE IN “CLEAN-UP*. 
1424 003104 000000 NODEV: : WORD 0 ‘FLAG TO SAY NO DEVICE. 
1426 003106 000000 TEMP1:: \WORD 0 :SOME TEMP LOCATIONS. 
1427 003110 000000 TEMP2: : “WORD 0 
1428 003112 000000 XXCOMM: : "WORD 0 :XXDP+ COMM BLOCK POINTER. 
1429 003114 000000 FREE: : "WORD 0 ‘1ST FREE MEMORY ADDRESS... 
1430 003116 000000 FRESIZ:: "WORD 0 LAND SIZE CIN WORDS). 
1431 003120 000000 FREEHI: .WORD 0 :LAST word iN FREE SPACE 
1432 003122 00000 KTFLG: : “WORD O KT11, MEM AVAIL FLAG - 
1433 i © = <24K OR NO KT - 
434 NZ = >24K AND KT. 
1435 003124 000000 KTENABLE: : WORD 0 SET BY TEST ROUTINES TO FLAG >28K UNDER TEST 

003126 000000 NXMFLG: : "WORD 0 SET IF WE CAN TEST CLEARED OTHERWISE 
1437 003130 000000 NXMLO: : "WORD 0 iNXM LO ADDRESS BITS 

003132 000000 NXMHI "WORD 0 NXM HI ADDRESS BITS FOR DAL’S 16-21 
1439 003134 000000 T23A:: "WORD 0 iT I/23A FLAG 

003136 000000 1238:: "WORD 0 111/238 FLAG 
1441 003140 000000 TSBFLG: : "WORD 0 TEST 38 FLAG tO 
1442 003142 002000 PST32N: : "WORD 2000 ;32W BLOCK ADDRESS FOR 32K START 
1443 003144 000000 SIFLAG: : “WORD 0 ; 
1444 003146 000000 BADOAT: : "WORD OO FACTUAL DATA 
1445 003150 000000 GDDAT: : "WORD 0 EXPECTED DATA 
1446 003152 000000 LOOPFL: : "WORD 0 
1447 003154 CTAB: : :CONFIGURATION TABLES. 
1448 003154 000000 CTABM: : WORD 0 CONFIG WORK. 
1449 003156 000000 “WORD 0 
1450 003160 000000 "WORD 0 
1451 003162 000000 “WORD 0 
1452 003164 177777 “WORD =. END OF MEM TABLE. 
1453 003166 CTABE: : 
1454 TERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 

t 

1456 : ° UNIT NOT TESTED 
1457 ; 100000 = UNIT ONLINE, NO ERRORS 
1458 : 1OXXXX = UNIT ONLINE, ENCOUNTERED XXXX ERRORS 
1459 : 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
1460 : 160001 = UNIT DROPPED, NOT IDLE AT STAR 
1461 : 14XXXX = UNET DROPPED, ENCOUNTERED SXXX ERRORS 
1383 003166 ERTABL: BLKW 64. 
1464 003566 000000 ERTABE : "WORD 0 
1466 003370 000000 SKIPT: .WORD 0 :1*SKIP SUBTEST ONO SKIP OF SUBTEST 





| 
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003372 124 


00356 102 

1517 003574 102 
00360 123 

1519 00: 117 
1 0036 102 
102 


1532 045 
1533 004115 045 
1534 004121 040 
15335 004150 040 
1536 0042135 045 
1537 004217 040 
S 040 


1538 004254 
1539 004276 045 





MACRO YOS.02 Monday 16-Sep-85 15:41 Pege 31 


123 


126 


\SBTTL GLOBAL TEXT MESSAGES 
1 THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
} MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
; HORE THAN ONE TEST. 
gee 
co 
INAMES OF DEVICES SUPPORTED 
, DEVTYP <TSVOS> 


LSOVTYP:: 
-ASCIZ /TSVOS/ 
-EVEN 


ITEST DESCRIPTION 

ae DESCRIPT <eees TSVOS LOGIC DIAGNOSTIC ’- CHK CABLES-TRANSPORT IF ERR seee> 
$ 
*ASCEZ /eeee TSVOS LOGIC DIAGNOSTIC - CHK CABLES-TRANSPORT IF ERR eeee/ 


iBIT TO ASCII CONVERSION FOR TSSR REGISTER 


TSSRBIT: : [WORD 18,.28.3¢,48,58.68,78,68 
"WORD 98.108.118. 128,138,148, 158,168 
1s: -ASCIZ ‘SC’ 
28 "ASCIZ ‘BIE’ 
38: ASCIZ ‘SCE’ 
as: TASCIZ ‘RMR 
S$: "ASCIZ ‘NXM! 
68: "ASCIZ ‘NBA’ 
78: "ASCIZ ‘BIT9" 
8: "aSCIZ ‘ITs’ 
98: “ASCIZ ‘SSR’ 
10:  ZASCIZ ‘OFL' 
118:  :ASCIZ ‘BITS’ 
12: ‘ASCIZ ‘BIT4: 
138:  lASCIZ ‘BITS: 
148: :ASCIZ ‘BIT2" 
15s:  :ASCIZ ‘BIT1° 
16%:  :ASCIZ ‘BITO’ 
SFIERR: [ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 
SFHERR: ‘ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 
| «CASCIZ =/ NON-EXISTANT DEVICE REGISTER!/ 
X:  [ASCIZ /8A ADORESS: #06/ 
TSSX: © :ASCET 6A TSBA,TSSR EXP'D: s068A. s0Can 
"ASCIZ /SA TSBA.TSSR REC'D: #06SA.806/ 


he AS 

4 UNEXPECTED INTERRUPT/ 

NSI: -ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 
FNOINTR: /SNBA/ 


INTX:  .ASCIZ /#A CPU PC: 068A TSBA: 806/ 


en gee eee =~ 
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1 004333 040 040 042 WNOINIT: .ASCIZ / “BUS-INIT" DION’T INITIALIZE ly pe 
1 004405 040 040 042 NSINIT: .ASCIZ / “SOFT-INIT” DION’T INITIALIZE THE DPU/ 
1 004455 040 040 042 BRINIT: .ASCIZ / “BUS-RESET” DION'T INITIALIZE THE DPU/ 
1543 004525 000 NUL: -ASCIZ ae 
1544 poets iy 045 116 000 NULCR: .ASCIZ 
1354S 004: 3 045 101 040 EXPGOT: .ASCIZ 7aA 3A EXP‘ D: eer REC'D: #06/ 
00456 045 116 045 EXPGT2: .ASCIZ /SNSA EXP’ ‘DO: SOSA, £06/ 
1347 pons ot | 045 101 DUADi2: . Zz /A 5 eto URITTEN” TO: S068A REGCR) READ; EXP'D: SO68A, REC'D: #06/ 
Hat perder 101 PKTRAM: : . conten s H+ et Sent’ 


SERES 


1SSF 005276 106 
1534 005370 105 IN FAILED 
1SSS 005456 045 116 045 NOMEN: ‘SNSA eee NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. eeesenN’ 


1556 0055 045 116 045 16166: ASCIZ ‘SNSA seseseseseseceses 11/23A SYSTEM seseeeseesessosossN' 
1337 00564 0&5 116 045 8189: ASCIZ ‘SNSA seeseesessosesoss 11/238 SYSTEM seesssssesesesesemNn’ 
1359 SBTTL GLOBAL ERROR REPORT SECTION 
1561 
1562 1° THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTS AND PRINTX 
1563 3 CALLS THAT ARE USED IN MORE THAN ONE TEST. 
1364 | ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
gee 
1566 005734 BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 
005734 NXRERR: : 
1567 005734 PRINTX @NXRX,NODEV sNODEV = NEXM ADDRESS. 
005734 013746 003104 MOV NODEV, -(SP) 
005740 012746 003775 HOV @NXAX, -CSP) 
005744 012746 000002 MOV @2,-(SP) 
005750 01 
005752 104415 TRAP CoPNTX 
005754 062706 000006 ADO 06, SP 
1568 005760 004737 005766 JSR PC. EXTEND : PRINT EXTENSION IF REQUIRED. 
1569 005764 
005 110002: 
none 005764 104423 TRAP  CéMSG 
1571 ; THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
13 3 TO ANY OF THE ABOVE ERROR SIGNATURES. 
1574 005766 005727 EXTEND: TST (PC)« 
1575 005770 000000 EXTA: 0 s © = NO EXTENSION. 
1576 005772 001402 BEQ 18 
1577 005774 004777 177770 JSR PC. SEXTA 3 APPEND EXTENSION TEXT. 
16: PRINTY CR 3 PRINT A BLANK LINE 
012746 004526 Mov @MULCR, -(SP) 
012746 000001 MOV 41, -(SP) 
006010 010600 mov SP RO 
3 104415 TRAP CSPNTX 
006014 062706 000004 ADO 64.,SP 
1579 006020 000207 aTs PC 





! 
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006046 
1603 006052 
604 


000054 177777 


002622 
006676 
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SEQ 0040 


-SBTTL PRITSSR - PRINT TSSR CONTENTS 
4 
}ROUTINE TO DISPLAY THE CONTENTS, AND BIT oy bade oat OF 


sTHE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED 
sBY A MESSAGE PRINTING ROUTINE 


3 
s INPUTS: 
é 
' R1 CONTENTS OF TSSR 
3 
sSUBORDINATE ROUTINES: 
$ 
, CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
: 
§° 
PRITSSR: 
SAVREG ;SAVE GENERAL REGISTERS 
v R1,R4 ;SAVE THE TSSR CONTENTS 
PRINTB @TSSRFOR.R4 ;PRINT THE CONTENTS OF TSSR 
MOV R4,-(SP) 
MOV @TSSRFOR, -(SP) 
MOV @2,-(SP) 
MOV SP .RO 
TRAP CSPNTB 
ADD SP 
MOV R4,RO :GET TSSR BACK FOR CHKAMB 
JSR PC; CHKAMB ;ARE CONTENTS AMBIGUOUS ? 
S ;BRANCH IF NOT 
PRINTX @AMBTSS ;SHOW CONTENTS ARE AMBIGUOUS 
MOV @AMBTSSR, -(SP) 
MOV #1,-(SP) 
MOV SP; RO 
TRAP C8PNTX 
ADD 64,SP 
S$: MOV R4.R3 ;CONTENTS OF TSSR 
BIC @HIADDR! FATERR! TERCLS.R3 ;CLEAR ALL MULTIPLE BIT FIELDS 
BEQ 20% 3NO BITS ARE SET 
MOV OTMPBFR ; TEMPORARY ASCII BUFFER 
MOV sTssRert a1 }ASCII EQUIVALENT OF BITS 
108: TST R3 ;REMAINING BITS TO CONVERT 
BEQ 15% ;BRANCH WHEN ALL ARE DONE 
cLC }CLEAR CARRY FOR SHIFT 
ROL R3 ;SHIFT NEXT BIT TO CARRY 
Bcc 13% ;BRANCH IF BIT NOT SET 
MOV (R1),RO POINTER TO BIT DEFINITION 
11s: MOVB (RO)+,(R2)+ ;MOVE ASCIZ TO BUFFER 
BNE 1 ;MOVE ALL BITS 
MOVB = «@' , -1(R2) INSERT A COMMA TO TERMINATE 
13%: TST i}. ;POINT TO NEXT DESCRIPTION 
BR ;GET THE REMAINING BITS 
15%: LRB -(R2) ; TERMINATE THE LINE 
PRINTX @TSSDEF,@TMPBFR ;PRINT THE BIT ber INITIONS 
MOV @TMPBFR, -(SP) 
MOV @TSSDEF . -(SP) 
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SEQ 0041 
 PRITSSR - PRINT TSSR CONTENTS 
006166 012746 000002 MOV #2,- agsP 
006172 010600 MOV SPR 
006174 104415 TRAP CAPNTX 
As 006176 062706 000006 ADD 66,SP 
i } 
a 010403 208: MOV ;GET THE TSSR CONTENTS 
1 042703 177761 BIC RTC TERCLS R3 }CLEAR ALL BUT TERMINATION 
1628 006210 016303 006766 MOV TCOCODCR33,.R3  3GET THE TERMINATION CODE MEANING 
1629 006214 PRINTX eTCOAsC R3 ;PRINT THE TERMINATION CODE 
006214 010346 MOV -(SP 
006216 012746 006566 MOV STeéoase -(SP) 
006222 012746 000002 MOV @2.-(SP) 
006226 010600 MOV 
006230 104415 TRAP CSPNTX 
006232 062706 000006 ADD : 
1630 006236 010403 MOV R4:R3 ‘SSR. CONTENTS AGAIN 
1631 006240 042703 177717 BIC OtCFATERR,R3 ;CLEAR ALL BUT FATAL TERMINATION 
1632 006244 001416 BEQ 258 ;DON’ T PRINT IF ZERO 
1633 006246 C06203 ASR R 
1634 006250 006203 ASR R3 
1635 006252 006203 ASR R3 ;ALINE TERMINATION CODE FOR INDEX 
1636 006254 016303 007326 MOV TSFCOD(R3).R3  ;GET THE FATAL TERMINATION CODE 
1637 006260 PRINTX eTFCASC R3 ;PRINT THE FATAL TERMINATION CODE 
006260 010346 MOV (SP 
006262 012746 006627 MOV STFCASC -(SP) 
006266 012746 000002 MOV .-(SP) 
006272 010600 MOV 
006274 104415 TRAP = CSPNTX 
006276 062706 000006 ADD 66, SP 
1638 006302 042704 176377 258: BIC @tCHIADOR ,R4 ;CLEAR ALL BUT EXTENDED ADORESS 
1639 006 001411 BEQ 308 ;D0N'T PRINT IF ZERO 
1640 006310 PRINTX @TEXASC,R4 ;PRINT THE EXTENDED ADDRESS BITS 
006310 010446 MOV R4,-(SP 
006312 012746 006525 MOV @TEXASC, -(SP) 
006316 012746 000002 MOV @2,-(SP) 
006 01 MOV SP; RO 
006324 104415 TRAP CSPNTX 
006326 062706 000006 SP 
1641 006332 013703 002170 308: MOV EPRTSW.R3 ;PRINT MEAASGE BUFFER ADDRESS 
1642 006336 PRINTX R3 ;PRINT PROPER MESSAGE 
006336 010346 MOV R3,-(SP) 
006340 012746 000001 MOV #1, -(SP) 
006344 010600 MOV SP; RO 
006 104415 TRAP CSPNTX 
006350 062706 000004 ADD 64,SP 
1643 006354 7 RTS PC ;RETURN TO CALLER 





1655 006356 
S6 006446 
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141 


EPRT1: 
EPRT2: 
TS OR: 


-ASCIZ 
-ASCIZ 


13:41 P 33 
pot SEQ 0042 


‘SNSA eeeeeCHECK ent BETWEEN M7196 AND TRANSPORTsesee’ 
TRANSPORT eeeee' 


ASCIZ ‘sNSA TSSR = #806’ 

ASCIZ ‘sSNSA Extended Address Bits = #06’ 
ASCIZ ‘SNSA Termination Cless Code = sT’ 
ASCIZ ‘sSNSA Fetel Termination Cless Code = #sT’ 
ASCIZ ‘sNSA TSSR Bits Set: sT’ 

SCIZ ‘sNSA TSSR Contents Are Ambiguous’ 


1%,2¢,3%,4¢,5%.6%.,7%,8$ 

‘Norma 1 Termination’ 

elnekton Condition’ 

‘Tepe Stetus Alert’ 

‘Function Reject’ 

"Recoverable Error - Tape Position One Record Down’ 
‘Recovereble Error - Tape Was Not Moved’ 
‘Unrecoverable Error’ 

‘Fatel Controller Error’ 


1%,2%,3%,4 

‘Internal tenmnvie Fei lure’ 
‘Reserved’ 

‘Bus Interface or Sanity Check Error’ 
‘Reserved’ 
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PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


10005 
1705S 007466 C0S737 003124 
06 001001 


007512 012746 007644 
007516 012746 000003 
010600 


007526 062706 000010 
1716 007540 004737 017406 
010004 


007556 012746 007606 
007562 012746 0000035 
007566 010600 


007572 062706 0v0010 
005201 


17 600 020105 
1723 007602 002762 
1738 007604 000207 
1726 007606 045 116 
1727 007644 045 116 


- SBTTL 
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PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


S THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
_— ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


PINPUT: 


PRIPKT: : 


108: 


15%: 


20%: 
25%: 


045 PKTFRM: 
045 PKTADD: 


-ASCIZ 
-ASCIZ 
-EVEN 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND PACKET ADDRESS 
ADORESS OF COMMAND PACKET 


R3 IS IGNORED IF THE KTENABLE re IS CLEAR. 


RO,RS 
KTENABLE 
10% 

R3 


R3,R1 
R4,RO 
RO 


Ri 
ade <p 2R1,R4 


R4,R1 
PC,SETMAP 
RO,R4 


CR4)+,R2 
@PKTFRM 


R1,R2 
R2,-(SP) 


sSAVE THE REGISTERS 

sSAVE NO. OF WORDS IN PACKET 
; ABOVE 26K UNDER TEST? 

3BR IF YES 

sSET HIGH ORDER ADDRESS TO 0 
sCOPY HIGH ORDER ADDRESS 


sGET LOWER ADDRESS 
iSHIFT BIT 15 INTO C BIT 
sAND INTO HIGH ORDER. 
sPRINT PACKET ADDRESS 


sGET HIGH ORDER ADDRESS 

s6R_ IF NOT ABOVE 28K. 

;GET LOW ORDER ADDRESS 

;SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
sGET RETURNED PAR6 ADDRESS BIAS 

sSAVE WORD NUMBER 

iGET PACKET CONTENTS 

sPRINT THE DATA 


sNEXT WORD NUMBER 

} DONE ALL ve WORDS? 
sLOOP TILL ALL DONE 
sRETURN 


‘SNSA Packet Word @SD1ISA = #06’ 
‘SNSA Packet Address = #01#05' 
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1778 010050 


010203 
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177400 


007764 
000004 
000012 


116 


045 


. SBTTL 


PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


{PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


: INPUTS: 

3 

: R1 
Fy Re 


; OUTPUT: 


* EVEN 
" SBTTL 


3¢ 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 


R2,R3 sEXPECTED DATA 
R1.R3 ;FORM THE EXCLUSIVE OR 
@t0<377>,RO BYTE MASK 

RO,R1 ;SAVE LOW BYTE RECV 
RO.R2 ;SAVE LOW BYTE EXPD 
RO.R3 ;SAVE LOW BYTE XOR 
@XORBFOR,R2,R1,R3 ;PRINT THE MESSAGE 
R3, -(SP) 

R1,-C(SP) 

R2,-(SP) 

@XORBFOR, -(SP) 

04, -(SP) 

SP .RO 

C$PNTB 

#12,SP 

R3,RO :RO HAS XOR ON RETURN 
PC ;RETURN TO CALLER 


-ASCIZ ‘SNSA EXPD: SO38A RECV: SO38A XOR: 803° 


PRIXOR - PRINT EXPD, RECV AND XOR 


;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


: INPUTS: 
; Ri 
; Re 


: OUTPUT: 

3 

8 RO 

PRIXOR: : 
SAVREG 
MOV 


XOR 
PRINTB 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 
ne. R3 TE ORA The DATA 

R1,R3 FORM THE EXCLUSIVE OR 
OXORFOR,R2,R1, Rs’ sPRINT THE MESSAGE 


SEQ 0044 
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PRIXOR - PRINT EXPD, RECV AND XOR 


6 
010056 012746 010102 
0062 746 000004 


010072 062706 000012 


1780 010100 7 

1761 

1762 010102 045 116 
1763 





MO 
RTS 


R3,RO sRO_HAS XOR ON RETURN 
PC sRETURN TO CALLER 


04S XORFOR: a ‘sNSA EXPD: SO68A RECV: 068A XOR: #06’ 


SEQ 0045 


re eon ae 
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| PRIEQU 


000207 
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- PRINT BIT NUMBERS AS ASCII EQUIVALENT 


045 


-SBTTL PRIEQU 
« 


;ROUTINE TO CONVERT BIT VALUES TO me oe AND PRINT THE STRING 


_— ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 

VINPUTS: 

; RO OCTAL VALUE TO CONVERT 

: R1 TABLE OF POINTERS TO ASCII EQUIVALENT 

3 

‘ 

PRIEQU: 
SAVREG sSAVE THE REGISTERS 
RTS PC sRETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 


* 


;PRINT CONTROLLER RAM ADDRESS 
_— ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


;INPUTS: 
; R4 RAM ADDRESS 
: 
PRIRAM: 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
PRINTB @RAMFOR,R4 ;PRINT RAM ADDRESS IN ERROR 
MOV R4,-(SP) 
MOV @RAMFOR, -(SP) 
MOV @2,-(SP) 
MOV sP 
TRAP C$PNTB 
ADD 06, SP 
RTS PC ;RETURN 
RAMFOR : -ASCIZ ‘$NA CONTROLLER RAM ADDRESS = #06’ 


- PRINT BIT NUMBERS AS ASCII EQUIVALENT 


SEQ 0046 
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SEQ 0047 
PRIADD - PRINT MEMORY ERROR ADDRESS 
1922 .SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS | 
3 cm 
18624 3 } 
1825 sPRINT MEMORY ADDRESS 
1826 sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
: 
1828 3 IMPLICIT INPUTS 
¢ 
1830 , ERRHI - HIGH ORDER ADDRESS 
1631 ; ERRLO - LOW ORDER ADDRESS 
1832 3 
1633 be 
1834 010250 RIADD: 
1835 010250 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1836 010254 013700 002226 MOV ERRHI,RO sGET HIGH ADORESSS 
1837 010260 013701 002230 MOV ERRLO.R1 sGET LOW ADDRESS 
1838 010264 010102 MOV R1,R2 sCOPY LOW ADDRESS 
1839 010266 006101 ROL R1 SHIFT BIT 15 TO C BIT 
1840 010270 06100 ROL RO sSHIFT INTO HIGH ORDER 
1841 010272 PRINTB @PRIAO,RO,R2 ;PRINT MEMORY ADDRESS IN ERROR 
010272 010246 MOV R2.-(SP) 
010274 010046 MOV RO, -(SP) 
010276 012746 010320 MOV @PRIAO, -(SP) 
010302 012746 000003 MOV 03, -(SP) 
010306 010600 MOV SP ,.RO 
010310 104414 TRAP CSPNTB 
010312 062706 000010 ADD $10,SP 
1842 010316 200207 RTS PC ;RETURN 
1844 010320 045 116 045 PRIAO: .ASCIZ ‘sNSA MEMORY ERROR ADDRESS = #01#05' 
1845 [EVEN 
1847 .SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 
- > 
1849 
1850 PRINT MEMORY ADDRESS 
1851 THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
3 
1853 3 IMPLICIT INPUTS 
D 
1855 ; ERRHI - HIGH ORDER ADDRESS 
1856 : ERRLO - LOW ORDER ADDRESS 
1657 : 
1858 3- 
1859 010364 PRITADD: 
1860 010364 SAVREG :SAVE R1-RS UNTIL NEXT RETURN 
1861 010370 013702 002226 MOV ERRHI,R2 :GET HIGH ADORESSS 
1862 010374 013701 0v2230 MOV ERRLO.R1 :GET LOW ADDRESS 
1863 sMOV—s-« R11, R2 sCOPY LOW ADDRESS 
1864 ;ROL Ss RA sSHIFT BIT 15 TO C BIT 
1865 gROL RO ;SHIFT INTO HIGH ORDER 
1866 010400 RINTB @PRITO,R1 sPRINT MEMORY ADDRESS LOW IN ERROR 
010400 010146 MOV R1,-(SP) 
010402 012746 010446 MOV @PRITO, -(SP) 
010406 012746 000002 MOV @2,-(SP) 
010412 010600 


MOV SP; RO 
010414 104414 TRAP  CS$PNTB 
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PRITADD - PRINT MEMORY 


010416 062706 
1867 oroses 
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TEST ADDRESS 
000006 


010511 
000002 


RTS 


045 PRITO: .ASCIZ 
045 PRIT1: .ASCIZ 
-EVEN 


06 ,SP 
epRITL R2 sPRINT MEMORY ADDRESS HIGH IN ERROR 
@PRITL 5s) 


CsPNTB 
06, 


PC sRETURN 


‘gNSA MEMORY TEST ADDRESS LOW = #06’ 
‘sNSA MEMORY TEST ADDRESS HIGH = #06’ 


SEQ 0048 





SPACE 
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- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
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000764 
140010 


010742 


100000 
010742 
000400 
010740 
0v0000 
016340 


000250 
002116 
177772 


010750 
010740 


010740 


SEQ 0049 


-SBTTL SPACE ~- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


3¢ 


;ROUT INE TO ISSUE A SPACE RECORDS 
sCOMMAND (FORWARD OR REVERSE) 


: 
s INPUT: 
R3 NUMBER OF RECORDS TO BE SPACED OVER 
BIT1S5 Conran s OIRECTION 
BIT15 = S FORWARD 
BIT15 = : IS REVERSE 
RS FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
OUTPUT: 


SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 


RO THE CONTENTS OF R4 IS MOVED TO RO 


IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 
i 


3 
3 
3 
3 
3 
3 
3 
3 
3 
; 
3 
3 CARRY 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


SPACE: : 
SAVREG sSAVE THE GENERAL REGISTERS 
MOV . »SDELAY ;SET UP DELA 
MOV @140010, 60$ ;SET UP COMMAND SPACE FORWARD 
TST R3 CHECK FOR DIRECTION 
BMI 53 ;0R, IF REVERSE INDICATED 
MOV R3,908 ;LOAD UP NUMBER OF RECORDS TO SPACE 
BR 10 G0 OMMANO 
S$: BIC @81T15,R3 rCLEAR DIRECTION BIT 
MOV R3 NUMBER OF RECORDS TO SPACE 
BIS oBiTs, 80s CET REVERSE BIT IN COMMAND PACKET 
10%: MOV ;SET UP R4 WITH PACKET ADORESS 


080% .R4 
MOV R4, TSOBCRS) 3SEND OUT C 
15%: JSR PC. WAITF iMATT FOR SSR 
20% ae IF Ssh IS SET AND OK 
;DELAY Sut 2 SECONDS 


DELAY 250 

MOV L#DLY. CPC)» 
DEC -6(PC) 

BNE | 
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SEQ 0050 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
os ooeeee 177756 eee -22(PC) | 
1925 010674 005337 010750 DEC SDELAY ;BUMP DELAY COUNTER DOWN ' 
1926 010 001356 BNE 15% 36R, IF MORE DELAY 
1927 010702 000411 BR 60% 38R IF TROUBLE CARRY = CLEAR 
19286 010704 016501 000002 20%: MOV TSSRCRS),R1L sREAD TSSR 
1929 010710 012702 000200 MOV @SSR ,,R2 3SET UP EXPECTED 
1930 010714 020201 25%: CMP R2,R1 sARE THEY OK 
1931 010716 001401 BEQ 40$ 3s6R, IF EQUAL = OK 
1932 010720 000402 BR 60% s TROUBLE EXIT 
1933 010722 000261 40%; SEC 3SET CARRY NO TROUBLE 
1934 010724 000401 BR 70% 3sExI 
1935 010726 000241 608: CLC sCARRY CLEAR = ERROR 
1936 010730 708%: 
1937 010730 010400 MOV R4,RO sPASS PACKET ADDRESS 
1936 010732 000207 RTS PC sRETURN 
1939 3 
1940 3 
1941 3 
sey sPACKET FOR SPACE COMMAND 
3 
1945 010740 -#¢,¢10>€177770 
1947 3 
1948 sCOMMAND WORD 
1949 010740 000000 80%: . WORD 
1950 sNUMBER OF RECORDS TO BE SPACED OVER WORD 
1951 010742 000000 90%: WORD 
1952 010744 000000 . WORD 
1953 010746 000000 WORD 
1954 010750 000000 SDELAY: .WORD sDELAY COUNTER 


- EVEN 
1956 -SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 
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WRTCHR - WRITE CHARACTERISTICS COMMAND 


SEQ 0051 


i 
1958 
1959 }ROUTINE TO Issue A WRITE CHARACTERISTICS | 
1960 ;COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 
4 
1962 s INPUT: 
196 ; Ra ADDRESS OF PACKET FROM TEST 
1964 ’ RS FIRST DEVICE UNIBUS ADORESS 
1965 : REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
966 t 
1967 ;OUTPUT: 
1968 ' RO TSSR CONTENTS 
1969 , CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
1370 , CLR - WRITE CHARACTERISTICS FAILED 
] 
+37 sIMPLICIT OUTPUT: 
1974 , MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
1975 , SOFTWARE SWITCHES SET AS FOLLOWS: 
1976 , EXTFEA = EXTENDED FEATURES PRESENT 
1977 ; BENSSW © BUFFER ENABLE SWITCH ON OR OFF 
i 
1979 sSIDE EFFECTS: 
1980 +- 
19861 010752 WRTCHR: : 
19862 010752 SAVREG sSAVE THE GENERAL REGISTERS 
19863 010756 005037 002220 CLR BENBSW ;CLEAR BUFFER ENABLE SWITCH 
1984 010762 005037 002216 CLR EXTFEA ;CLEAR EXTENDED FEATURES SW SWITCH 
1985 010766 010465 000000 10%: OV R4, TSDBCRS) , COMMAND 
1986 010772 004737 016426 JSR PC.CHKTSSR ;WAIT FOR SSR 
1987 010776 103401 ecs 20% 38R, IF SSR IS SET AND OK 
1988 011000 000435 BR 60% :BR IF TROUBLE CARRY = CLEAR 
1989 011002 016501 000002 20%: MOV TSSR(RS).R1 sREAD TSSR 
1990 011006 012702 000200 MOV @SSR,R2 3SET UP EXPECTED 
1991 011012 032701 000100 BIT @OFL.R1 ;WAS OFF LINE SET IN TSSR 
1998 011016 001402 6EQ 25% :8R, IF NO OFL SET 
1993 011020 052702 000100 81S @OFL .R2 ;MAKE THEM LOOK ALIKE 
1994 011024 1 25¢: CMP R2.Ri sARE THEY OK 
1995 011026 001401 BEQ 40% 38R, IF EQUAL = 
1996 011030 000421 BR 60% ;TROUBLE EXIT 
1997 011032 062704 000010 40%: ADD 08. .R4 sPOINT TO WRT CHARA DATA PACKET 
1998 011036 011403 MOV (R45, R3 sGET ADORESS OF MESSAGE BUFFER 
1999 011040 032763 000200 000012 BIT @X2.EXTF ,.XST2CR3) iEXTENDED FEATURES BIT SET? 
2000 011046 001402 BEQ ass IF NO 
2003 911050 005237 002216 a INC EXTFEA SET EXTENDED FEATURES SW SWITCH 
: 
2003 011054 032763 000100 000012 BIT @X2.BUFE,xST2(R3) sBUFFER ENABLE SWITCH SET 
2004 011062 001402 BEQ 50% BR IF SWITCH NOT SET 
2005 011064 005237 0u2220 INC BENSSW SET SOFTWARE SWITCH FOR ENABLED 
2006 011070 50%: 
2007 011070 000261 SEC sSET CARRY NO TROUBLE 
2008 011072 000401 BR 708 EXI 
2009 011074 000241 60%: CLC CARRY CLEAR = ERROR 
2010 011076 016500 000002 708: MOV TSSR(RS),RO ;RETURN TSSR CONTENTS 
2011 0 00020 PC ;RETURN 
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REWIND - POSITION TAPE (REWIND) COMMAND 


2013 -SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 
1 
2015 ’ 
sole sTHIS ROUTINE WILL REWIND THE SELECTED TAPE. 
: 
2018 8 CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
2019 ‘ TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
2020 ’ SSR TO SET IN THE TSSR 
2021 8 
2022 8 
2023 sCALLING SEQUENCE: 
2024 3 
2025 3 DO A SOFT INIT 
2026 3 DO A WRITE CHARACTERISTICS 
2027 3 JSR PC ,REWIND 
2028 . 
soe s INPUT: 
20 3 
2031 3 RS FIRST DEVICE UNIBUS ADDRESS 
sos 3 
20 s 
sos 3 OUTPUT 
son6 RO THE CONTENTS OF R4 IS PASSED TO RO 
2038 
2039 


011104 
1 011104 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
011110 012704 011200 MOV @RUPACK .R4 sGET PACKET ADDRESS 
2043 011114 010465 000000 MOV R4, TSDBCRS) 3SEND PACKET ADORESS TO EXECUTE 
011 012703 000550 MOV €360. ,R3 TIME FOR 2400’ REEL TO REWIND 
2045 011 004737 016340 108: JSR PC ,WALTF sWAIT FOR SSR TO SET 
2046 011130 103417 acs 208 sLEAVE SSR IS SET 
2047 011132 DELAY 250. sWAIT FOR .25 SECONDS 
011132 012727 000372 HOV 0250. .(PC)+ 
011136 000000 . WORD 
011140 013727 002116 nov LSOLY,(PC)- 
011144 000000 . WORD 
sities Sipe, 7777 i 
011154 905367 177756—ti«‘“; DEC -22(PC) 
011160 001367 BNE 2 
2048 011162 005303 DEC 3 ' COUNTER DOWN 
2049 011164 001357 BNE 108 sKEEP GOING 
2050 011 00024 cLC sCLEAR CARRY TO SET ERROR 
1011170 01 208:  mOV R4,RO sPASS THE PACKET ADORESS 
£053 011172 000207 ats PC sRETURN 
011200 .*¢, 01026177770 


011200 102010 WORD 102010 POSTION COMMAND (REWIND) 
000000 “woRD «(OO iNOT USED 


| 
2040 0111 tina : 





| cKRAH 


2111 011304 
2112 011312 
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012701 
012702 
005003 
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002232 
000201 
016426 
000000 
016426 
000000 
016426 
000000 


000210 


000010 002272 


-SBTTL CKRAM 


3¢ 


SEQ 0053 


, 
sROUTINE TO READ THE FIRST 8 BYTES FROM RAM 


sMEMORY AND COMPARE THIS DATA TO A 


| 
- COMPARE RAM TO 1/0 PACKET | 


COMMAND PACKET. 


}INPUT: 

: R4 ADDRESS OF THE COMMAND PACKET 

3 RS FIRST DEVICE UNIBUS ADDRESS 
}OUTPUT: 

; CARRY oe - RAM MATCHES PACKET 

3 CLR - RAM DOES NOT MATCH PACKET 


’ 
sIMPLICIT OUTPUT: 
DATA HE 


SIDE EFFECTS: 


CKRAM: 
SAVREG 
MOV @RAMDATA,R1 
MOV @RMPKTBEG ,R2 
CLR R3 
JSR PC,CHKTSSR 
MOVB #0, TSDBCRS) 
10$; JSR PC,CHKTSSR 
MOV Re, Ear sh ) 
JSR PC,CHKTSS 
MOVB TSBACRSD® tri) 
CMPB (R1)+,(R4)> 
BEQ 20% 
INC 
208: INC 
CMP R2, ORMPK TEND 
BLE $ 
TST R3 
BEQ 30% 
CLC 
BR 50% 
30%: SEC 
50$: MOV #8. ,RAMSIZ 
RTS PC 


THE ‘i. 7 kane IS FILLED WITH THE 
RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


sSAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
i8YTE ADDRESS 4 Gran RAM DATA 


sBRANCH IF NOT 
sCLEAR CARRY TO SHOW ERROR 
sAND EXIT 


;SHOW GOOD COMPARE 
sSETUP RAMSIZ FOR PRAMPKT ROUTINE 
;RETURN 





| 
| 
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CKRAM2 - COMPARE RAM TO I/0 CHARACTERISTICS DATA 


2 
2141 0113514 
21 320 


2169 011446 


-SBTTL CKRAM2 - COMPARE RAM TO I/0 CHARACTERISTICS DATA 


i 


; ROUTINE TO READ THE FIRST 8 OR a8 BYTES FROM RAM 


7 AND COMPARE THIS DATA TO A 


CHARACTERISTICS DATA BLOCK. 


LINPUT: 

: R4 ADDRESS OF THE CHARACTERISTICS DATA 
. RS FIRST DEVICE UNIBUS ADDRESS 

rOUTPUT 

; CARRY SET - RAM MATCHES PACKET 

: CLR - RA’ OOES NOT MATCH PACKET 


}IMPLICIT OUTPUT: 
DATA HELD IN R 


SIDE EFFECTS: 


exRAM2: : 
SAVREG 
002232 MOV @RAMDATA,R1 
000167 MOV ORMCHBEG .R2 
CLR R3 
016426 JSR PC. CHKTSSR 
000000 000000 MOVE 0, TSOB(RS) 
016426 10%: JSR PC. CHKTSSR 
000000 MOV R2, TSDBC(RS) 
016426 JSR PC. CHKTSSR 
000000 MOVB TSBACRS),(R1) 
CHPB ss (R}1)+, (R4)> 
BEQ 208 
INC R3 
208 INC R2 
000010 002272 MOV 08. ,RAMSIZ 
002216 TST EXTFEA 
BEQ 25% 
000012 002272 MOV #10. ,RAMSIZ 
000200 CMP R2, @RMCHEND 
BLE 10 
BR 278 
000176 258: cme R2, @RMCHEND - 2 
BLE 108 
278: TST 
BEQ 308 
cLc 
BR 50% 
308: c 


SE 
50%: RTS PC 


THE TABLE ye IS FILLED WITH THE 
RAMSIZ IS SET 10° 8. OR 10. FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


sSAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 


sCOMPAPE 10 EXPECTED 
sBRANCH IF OK 
SSET ERROR F 


LAG 
sADDRESS OF NEXT RAM LOCATION 
; ASSUME EXTFEA NOT SET 


:IS THE oe "ene EXTENDED FEATURES SET 


IF NOT 


BR 
SET RAMSIZ FoR EXTEND FEATURES 
;AT END OF EXTENDED BUFFER 

38R, IF NOT AT END YET 

3;AT END BR 

;REACHED END 

;BRANCH TILL ALL READ 

;WAS AN ERROR F 

:BRANCH IF NOT 

;CLEAR CARRY TO SHOW ERROR 

:AND EXIT 

;SHOW GOOD COMPARE 

+ RETURN 


SEQ 0054 


- +--+ ee 


TSVS - GLOBAL AREAS 
- COMPARE WRITE CHAR. MESSAGE SUFFERS 
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002274 
002276 
003124 


017406 


002312 
002456 


000012 


.SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 


" 


;ROUT INE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
:BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


3 
s INPUT: 
’ 
3 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
3 Ri RECV MESSAGE BUFFER LOW ORDER ADDRESS 
’ Re EXPD MESSAGE BUFFER ADDRESS 
sOUTPUT: 
8 
3 CARRY SET - MESSAGE BUFFERS MATCH 
3 CLR -MESSAGE BUFFERS DON’T MATCH 
3 
sIMPLICIT OUTPUT: 
3 EXPMSG BUFFER IS SET TO EXPD DATA 
3 CMSG BUFFER IS SET TO RECV DATA 
3 RCVHIADD SET TO HIGH ORDER ADORESS OF RECV 
’ RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
8 
MSG: : 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
HOV RO,RCVHIADD sSAVE RECV HIGH ADDRESS 
MOV R1,RCVLOAD sSAVE RECV LOW ADORESS 
TST KTENABLE sTESTING ABOVE 28K? 
BEQ 108 ; F NO 
JSR PC ,SETMAP sRETURN ADORESS BIASED TO PAR6 IN RO 
MOV RO,R1 3GET RETURNED ADORESS BIASED TO PAR6 
108: CLR RS WORD IN BUFFER 
CLR sCLEAR ERROR SEEN FLAG 
MOV RS sGET EXPO BUFFER ss 
158: MOV (R2), EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
MOV CR1),RECMSG(R4) ;SAVE RECV FOR ERROR RE T 
AA CR2)+, (Rs sEXPD —_ RECV? 
8 
INC as 3SET FLAG 
25%: ADD @2,R4 oe. TO NEXT WORD ADDRESS 
CMP R4,014 sDONE FIRST 7 WORDS? 
BLE 153 F NO 
aro Hf -EXTF, xsT2cns) Is ae peas FEATURES SET IN EXPD? 
Cnr R4,016 :DONE EXTENDED FEATURES WORD? 
BLE 153 F NO 
508: TST R38 TANY ERRORS SEEN? 
BEQ 55% 3 F 
cLC 3SET FAILURE 
BR 60% 3 
558%: SEC sSET SUCCESS 
608: RTS PC ;RETURN 


SEQ 0055 
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SEQ 0056 


CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
i 
2226 .SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
| t¢ 
| 2228 sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
| 22 ;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
} 22 sERROR PRINT ROUTINES. 
2231 : 
22 : INPUT: 
2233 ' RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
22 , R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
2235 : R2 EXPD MESSAGE BUFFER ADDRESS 
2236 ; R3 NUMBER OF BYTES TO COMPARE 
a 
22 sOUTPUT: 
2239 , CARRY SET - MESSAGE BUFFERS MATCH 
2240 ' CLR - MESSAGE BUFFERS DON’T MATCH 
3 
2242 sIMPLICIT OUTPUT: 
2243 , EXPMSG BUFFER IS SET TO EXxPD DATA 
2244 : RECMSG BUFFER IS SET TO. RECV DATA 
2245 : RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
2246 ; RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
011 exmsGe: : 
2249 011570 . SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
2250 011574 020327 000144 CMP R3, @RECMSG-EXPMSG;@80 IS COUNT ABOVE MAX ALLOWED? 
2251 011600 003412 BLE 4 4090 BR IF NO 
2252 011602 012703 000144 MOV @RECMSG-EXPMSG,R3; 880 
2253 011606 PRINTF @DEBUGMSG 3:80 
011 012746 011722 MOV @DEBUGMSG, -( SP) 
011612 012746 000001 MOV #1, -(SP) 
011616 01 MOV RO 
O11 104417 TRAP CSPNTF 
O11 0627 ADD 04,SP 
2254 011626 010037 002274 S$: MOV RO. RCVHIADD ;SAVE RECV HIGH ADDRESS 
2255 011632 010137 002276 MOV R1,RCVLOAD 1 SAVE RECV LOW ADDRESS 
2256 011636 005737 003124 TST KTENABLE :TESTING ABOVE 28K? 
2257 011642 001403 BEQ :BR IF NO 
011644 004737 017406 JSR PC, SETMAP RETURN ADDRESS BIASED TO PAR6 IN RO 
2259 011650 010001 MOV RO.R1 :GET RETURNED ADDRESS BIASED TO PAR6 
011652 108: CLR Ra ;WORD IN BUFFER 
2261 011654 CLR sCLEAR ERROR SEEN FLAG 
011656 i111 002312 15%: MO tre), EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
2263 011662 111164 0024 MOVB (R1). RECHSG(R4) ;SAVE RECV FOR ERROR REPORT 
011666 122221 Cc cRe)s sEXPD EQUAL RECV? 
2265 011670 001401 BEQ 8R IF YES 
011672 005205 INC SET ERROR SEEN FLAG 
2267 011674 062704 000001 25%: ADD #1,R4 sPOINT TO NEXT BYTE 
011700 020403 CMP R4,R3 sD0NE ALL BYTES? 
2269 011702 002001 8GE 50$ i@R IF YES 
2270 011704 000764 BR 158% 300 NEXT BYTE 
01 005705 508: TST RS 3ANY ERRORS SEEN? 
2272 011710 001402 BEQ 55% iBR 
2273 011712 000241 cLC SET FAILURE 
2274 011714 000401 BR 60% ; 
2275 011716 000261 55%: SEC 3SET SUCCESS 
2276 011720 000207 608: RTS PC ;RETURN 
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2278 011722 


2298 inte 


34 
012134 


3 
2314 012136 
12136 
2315 0121356 


2316 012152 
012152 
012152 


004737 
004737 


104423 


004737 
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CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


006022 
017272 


006022 
000004 
007460 


SEQ 0057 


DEBUGMSG: .ASCIZ Oe page pan, ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-’ ; 880 
FERCM: ASCII NBA 

ERCM: ASCIZ / TSSR “ERROR CODE REC'D = 

SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT? 

TINERR : oo /TEST: .../ 


;PRINT ROUTINE TO FATAL SOFT INIT ERRORS 


} INPUT: 

: R1 CONTENTS OF TSSR AT ERROR 

} SIDE EFFECTS: 

: EXECUTES DROP UNIT TO CEASE TESTING 

3 

ge 
BGNMSG SFIMSG 

SFIMSG:: 
JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
JSR PC ,CKOROP ;DROP UNIT, IF ALLOWED 
ENOMSG 

L10003 


* TRAP = CSMSG 


4 
SPRINT ROUTINE TO PRINT THE CONTENTS OF 
;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 


;INPUTS: 
; Ri TSSR_ CONTENTS 
; R4 ADDRESS OF COMMAND PACKET 


BGNMSG PKTSSR 


JSR PC.PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV @4,RO sNO. OF WORDS IN PACK 
JSR PC ,.PRIPKT ;PRINT THE CONTENTS OF COMMAND PACKET 
ENOMSG 

110004: 


TRAP C$MSG 


2332 012164 
2333 012170 
012170 
012170 


012176 


SS 
2356 012200 
012200 


012214 
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004737 
012700 
004737 


104423 


004737 


104423 
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006022 
000002 
007460 


006022 


006022 


014332 


1 PRINT ROUTINE TO PRINT THE CONTENTS. OF : 

iTSSR AND A GET STATUS COMMAND PACKET 

L INPUTS: 

: R1 TSSR CONTENTS 

: R4 ADDRESS OF COMMAND PACKET 

‘ BGNMSG PKTGETS 

PKTGETS:: 
JSR PC, PRITSSR ;PRINT THE CONTENTS OF TSSR REGISTER 
MOV @2:RO NO. OF WORDS IN GET STATUS PACKET 
JSR PC PRIPKT ‘PRINT THE CONTENTS OF COMMAND PACKET 
ENDMSG 

10005: 
TRAP —- CMSG 

7 

}PRINT TSSR ERRORS FOR INITIALIZATION TESTS 

L INPUTS: 

: Ri TSSR CONTENTS 

: R4 ADDRESS OF COMMAND PACKET 

‘ BGNMSG SFFMSG 

SFFMSG:: 
JSR PC, PRITSSR ;PRINT CONTENTS OF TSSR REGISTER 
ENOMSG 

10006: 
TRAP —«C4MSG 
“SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 


;PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
re FOR ERROR REPORTS 


}INPUTS: 

3 

3 Ri CONTENTS OF TSSR 

3 Re LOW ORDER MESSAGE BUFFER 

3 R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

3 NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 
BGNMSG PKTMES 

PKTMES: : 
JSR PC ,PRITSSR sPRINT CONTENTS OF TSSR 
MOV R2,RO sLOW ORDER ADDRESS 
MOV R3,R1 sHIGH ORDER ADDRESS 
JSR PC,.PRMESS sPRINT THE MESSAGE BUFFER 
ENOMSG 

L10007: 


TRAP C$MSG 


SEQ 0056 





| TSV3 - GLOBAL AREAS |= MACRO YOS.02 Monday 16-Sep-85 13:41 Pege 47 | 
, 7 ; . SEQ 0059 


! 
i 
ADDSSR - PRINT TEST ADDRESS AND TSSR 
| 


2363 .SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 
+e 

5365 {PRINT ROUTINE TO PRINT THE CONTENTS OF 
2366 TSSR AND A MEMORY TEST ADDRESS 
2368 LINPUTS: 
2369 ; 
3370 ; RS FIRST DEVICE UNIBUS ADDRESS 
2371 : ERRHI HIGH ORDER MEMORY TEST ADORESS 
2372 : ERRLO LOW ORDER MEMORY TEST ADDRESS 
5374 ‘ 
2375 012216 BGNMSG ADDSSR 

012216 ADDSSR: : 
2376 012216 004737 010364 JSR —s- PC, PRITADD ‘PRINT MEMORY TEST ADDRESS 
5377 012222 016501 000002 MoV TSSR(RS).R1 GET CURRENT TSSR 
3378 012226 004737 006022 JSR __—s- PC, PRITSSR IORINT THE CONTENTS OF TSSR REGISTER 
2379 012232 ENDMSG 

012232 10010: 
ase 11222 108428 TRAP  C$MSG 
2381 .SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 

382 3° 

2383 
2384 PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
2386 IMPLICIT INPUTS: 
5388 ; EXPMSG - EXPECTED MESSAGE BUFFER 
2389 : RECMSG - RECEIVED MESSAGE BUFFER 
2390 ; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
2391 ; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORTER ADDRESS 
3393 012234 ‘ BGNMSG MSGEXP 

012234 MSGEXP: : 
2394 012234 012700 000007 * Fuov 07,RO ;ASSUME NO EXT FEATURES 
5395 012240 005737 002216 TST EXTFEA VEXT FEATURES SET? 
3396 012244 001402 BEQtiéSs$: ‘OR IF 
3397 012246 012700 000010 MOV 28. .RO JEXT FEATURE BUFFER IS 8 WORDS 
5398 012252 004737 014642 S$: JSR __—- PC, PRMSGEXP PRINT EXPD/RECV MESSAGE BUFFERS 
5399 012256 ENOMSG 

012256 L10011 


012256 104423 * TRAP = C$MSG 





! 
' 
| 
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| eIFEXP 


2415 012 


2416 012322 
2417 012324 
2416 ep ites 


012330 
2419 012332 
2420 012401 
2421 
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- PRINT FIFO EXP/RECV DATA 


116 
116 


- SBTTL 


3¢ 


FIFEXP - PRINT FIFO EXP/RECV DATA 


;PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 


’ 
: R1 


- BYTE COUNT 


IMPLICIT INPUTS: 


: EXPMSG 
F RE 
g2 


FIFEXP: : 


L10012: 


04S FIFIMSG: 
045 FIF2MSG: ev 


- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
- RECEIVED MESSAGE BUFFER CCONTAINS FIFO DATA ONLY) 


FIFEXP 
@FIFIMSG,R1 sPRINT BYTES TRANSFERRED 


-(SP) 
OF IF iMSG, -(SP) 
@2,-(SP) 


66, SP 
oF IF 2MSG ;PRINT HEADER MSG 


R1,RO sGET BYTE COUNT 
PC ,PRBYTEXP sPRINT FIFO BYTES IN ERROR 


C$MSG 
-ASCIZ ‘sNsA NUMBER OF BYTES TRANSFERRED = D2‘ 


-ASCIZ ‘sSNA FIFO DATA BYTES IN ERROR:' 


ee 


SEQ 0060 
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SEQ 0061 
MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
ase -SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
3° 
2425 
sass ;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
3 


! 
| 
3428 : | 
2429 IMPLICIT INPUTS: 
3431 : EXPMSG - EXPECTED MESSAGE BUFFER 
2432 3 
3 
3 


- RECEIVED MESSAGE BUFF 


RECMSG ER 
2433 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
sis RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
ge 

2436 012440 BGNMSG MSGSTAT 

012440 MSGSTAT: : 
2437 012440 012701 012502 MOV @STATCOD,R1 sASCII ADDRESS TABLE 

38 012444 012100 10%: MOV CR1)+,RO sDONE ALL MSG LINES? 

2439 012446 001410 EQ 20% :6R IF YES 
2440 012450 PRINTX RO sPRINT STATUS BIT NAMES 

012450 010046 MOV RO, -CSP) 

012452 012746 000001 MOV #1,-(SP) 

012456 010600 MOV »RO 

.) 104415 TRAP C#PNTX 

012462 062706 000004 ADD @4,SP 
2°41 012466 000766 BR 10% s00 ANOTHER MSG LINE 
2442 012470 012700 000012 20%: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
2443 012474 004737 014642 JSR PC, PRMSGEXP :PRINT EXPD/RECV MESSAGE BUFFERS 
2444 012500 ENDMSG 

012500 10013: 
2045 012500 104423 TRAP C$MSG 
2446 012502 012520 012562 012653 STATCOD: -WORD 1$%,2$, ae og fo 5$,6%,0 
2447 012520 045 116 045 1%:.ASCIZ 'SNSA Tape Bus gj in Word @6:' 
2448 012562 045 116 045 2%:.ASCIZ ‘sNSA PARE R<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2>' 
2449 012653 045 116 045 3%:.ASCIZ “NAA IRESV2<14> IIDENT<11> IHER <8> IONL<S> IFBY<1>' 
2450 012744 045 116 045 4%:.ASCIZ ‘sNSA IRESV1<13> ICER <10> ISPEED<7> ILOP<4> IFPT<O>' 


2451 013035 045 116 04S 5%:.ASCIZ ‘sSNA Tape Bus Signals in Word 09:' 
2452 013077 045 116 045 O08 ROLES wean DATMIS<7> ILW<6> OUTRDY<S> INRDY<4>’ 
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2456 
2457 
2458 
2459 
2460 


7 
2476 013216 
9 0132356 
2480 013311 
2481 013410 
013507 


013606 
2484 013705 
014004 


012701 
012100 
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MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
.-SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


013216 


a¢ 





;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


IMPLICIT INPUTS: 


BGNMSG MSGLOOP 
MSGLOOP: : 
MOV @LOOPCOD.R1 sASCII ADDRESS TABLE 
108: MOV CR1i)+,RO sDONE ALL MSG LINES? 
BEQ 20% 38R IF YES 
PRINTX RO sPRINT STATUS BIT NAMES 
MOV RO, -CSP) 
MOV #1, -(SP) 
Vv RO 
TRAP CSPNTX 
ADD @4,SP 
BR 10% “om ANOTHER MSG pe 
208: MOV za*, ER OF WORDS IN A READ STATUS BUFFER 
JSR t pansGeXxP PRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
110014: 
TRAP CémMSG 
COD: -WORD = 1%,28,3%,4%,5%.6%.7%,0 
1$:.ASCIZ ' SINSA Tape Bus Loopbeck Signels in Word 08:' 
2¢:.ASCIZ ‘sNSA PARERR<15> IRESV2<14> IRESV1<13>' 
3¢:.ASCIZ eve IHISP=>IEOT<12> IWRT=>IIDENT<11> IREV =>ICER 


z SNSA IWFM =>IFMK<09> 
5%: .ASCIZ SNA ITADO=>IRDY<06> 
6%:.ASCIZ ‘sNSA IREW =>IDBY<03> 

a ee IGO *>IFPT<00>' 


EXPMSG EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


IEDIT=>IHER <08> IFAD 
ITADi=>IONL <05> 


IRWU =>IRWD <O2> IFEN 


=> ISPEED<07>' 
IERASE=>ILOP 
=>IFBY 
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2488 
2489 
90 


ay 


Suueoeees S28 


were 
id 


2515 


012700 
004737 


104423 


004737 
013701 
013702 
004737 


104423 





000012 
014642 
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MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


-SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


3¢ 


;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
5 


SIMPLICIT INPUTS: 


: 
5 EXPECTED MESSAGE BUFFER 
’ RECMSG - RECEIVED MESSAGE BUFFER 

’ RCVHIADD - RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
‘ RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
i 


BGNMSG MSGSUB 
MSGSUB:: 
10. ,RO sSIZE OF WRITE SUBSYSTEM BUFFER 
JSR PC , PRMSGEXP ;PRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
L10015: 
TRAP  C8MSG 


.SBTTL MEMADD - PRINT MEMORY ADORESS DATA ERROR 


s¢ 
+ PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
IMPLICIT INPUTS: 


3 

; ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

; ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

; EXP - EXPECTED DATA 

: RECV - RECEIVED DATA 

g° 
BGNMSG MEMADD 

MEMADD: : 
JSR PC ,PRIADD ;PRINT MEMORY ADDRESS IN ERROR 
MOV EXPD,R1 ;GET EXPD DATA 
MOV RECV.R2 ;GET RECEIVED DATA 
JSR PC, PRIXOR PRINT EXPD/RECV 
ENOMSG 

110016: 


TRAP C#MSG 
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| SEQ 0064 
PRAMPKT - PRINT RAM AND PACKET DATA 


2525 -SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 
2527 iPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 

2528 ‘i THE RAM DATA DOES NOT MATCH. 

2529 

2530 

2533 IMPLICIT ey 

2534 3 RAMDAT DATA AS a4 FROM THE RAM 
2535 3 RAMSIZ. NUMBER OF BYTES IN PACKET 
S338 : IF RAMSIZ=0 THEN DEFAULT TO 8. 
2538 vIMPLICIT OUTPUTS: 

2539 RAMSIZ SET TO 0 

2540 ke 

2541 014066 AMPKT: 


ate 014066 SAVREG sSAVE R1-RS gt NEXT RETURN 
2543 014072 C12701 002232 MOV @RAMDATA,R1 iDATA FROM THE R 

2344 014076 005002 CLR R2 sINIT BYTE NUMBER 

2545 014100 122124 S$: CMPB CR1)+, CR4)> sCOMPARE EXPECTED, RECEIVED 
2546 014102 001005 BNE 7% 16R IF NO MATCH 

2547 014104 ne . 7% ,NOTSSR 


000436 1 3880 

2549 014116 116105 177777 78: MOVE -1(R1),RS GET RECV RAM DATA 

2550 014122 116403 177777 MOVB -3(R4), R3 :GET EXPD PACKET DATA 
XOR R5.R 3XOR EXPD/RECV 

2552 014136 042703 177400 BIC #177400,R ;LOW BYTE ONLY 

2553 014142 116137 177777 002224 MOVB --1(R1) SREY ;GET RECEIVED RAM DATA 

2554 014150 116437 177777 002222 Move ;GET EXPECTED RAM DATA 

2555 014156 PRINTS @nAMASC ,R2. RECV,EXPO,R3 


014156 346 
014160 013746 002222 
014164 002224 
0246 
014172 012746 014246 
000005 


Vv 
MoV 
mov 
MOV 
lV 
TRAP 
0 062706 000014 
2556 014212 005202 10%: INC R sUPDATE BYTE COUNT 
2557 014214 005737 002272 TST RAMSIZ sDEFAULT TO 8.7? 
2538 014220 BEQ 15% :BR IF YES 
2559 014222 020237 002272 R2,RAMSIZ sDONE ALL BYTES? 
4226 ae 5$ s8R IF NO 
CMP 
BLT 
CLR 
RTS 


000403 

4232 020227 000010 15%: 

2564 014240 0050357 002272 25%: 
000207 


25 
R2,06. ‘DONE DEFAULT NUMBER OF BYTES? 


3BR NO 
RAMSIZ sSET DEFAULT RAMSIZ 
PC sRETURN 


2566 
2567 014246 045 116 045 RAMASC: peere ‘SNSA BYTE: SD28A RAM: SO3SA Packet: SO38A XOR:#03' 


| 
' 
| 
' 
| 
i INPUTS: 
2531 ; 
2532 RS POINTER TO COMMAND PACKET 
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SEQ 006s 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER | 
! 
79 .SOTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER | 
se 
2572 sTHIS ROUTINE PRINTS THE CONTENTS OF 
2373 ;THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE TSV-0S. 
t 
2575 s INPUT: 
2576 ' LOW ORDER ADDRESS OF MESSAGE BUFFER 
2577 ' R1 HIGH ORDER ADORESS OF MESSAGE BUFFER 
2578 , NOTE: Ri IS IGNORED IF KTENABLE FLAG IS CLEAR 
2579 sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
2581 014332 PRMESS: SAVREG sSAVE THE REGISTERS 
2582 014336 010005 MOV RO,RS sSAVE LOW ORDER ADORESS 
014340 005737 003124 TST KTENABLE sADORESS ABOVE 28K? 
2584 014344 001001 BNE 108 :0R IF YES 
2585 014346 1 CLA Ri sSET HIGH ORDER ADORESS TO 0 
2586 014350 01010 10%: MOV R1,R3 sSAVE HIGH OROER 
25867 014352 006100 ROL RO sSHIFT 61715 TO C BIT 
2588 014354 C06101 ROL R1 sSHIFT TO HIGH ORDER FOR PRINTOUT 
2589 014356 PRINTX @PROASC,R1,R5  ;PRINT MESSAGE BUFFER ADORESS 
014356 HOV RS, -(SP 
014360 010146 MOV Ri, -(SP 
014362 012746 014510 MOV -(SP) 
014366 012746 000003 MOV @3,-(SP) 
014372 01 MOV SP;RO 
014374 104415 TRAP CSPNTX 
014376 706 000010 ADO 610, SP 
2590 014402 PRINTX iasc sPRINT HEADER FOR CONTENTS 
014402 012746 014555 MOV @PRIASC, -(SP) 
014406 012746 000001 MOV #1, -(SP) 
1 010600 Mov SP .RO 
014414 104415 TRAP COPNTX 
014416 706 000004 ADO 64,SP 
2591 014422 CLR R4 ’ OF THE NEXT WORD 
2398 01 01050 MOV RS.R1 sCOPY LOW ORDER ADORESS 
01 010 MOV R3.RO sCOPY HIGH ORDER ADORESS 
2394 014430 001403 Bea gi 30R IF NOT ABOVE 26K 
014432 004737 017406 JSR » SETMAP , PAR ADORESS IN RO 
2596 014436 010005 HOV RO.RS GET PAR FORMAT ADORESS ABOVE 26K 
2597 014440 20%:  PRINTX @PRASC.R4,(RS)> ;PRINT THE CONTENTS OF MEMORY BUFFER 
014440 012546 MOV (RS)e (sé 
014442 01 HOV aa, -($P 
014444 012746 014613 MOV @PRASC, -( SP) 
014450 012746 MOV #3, -(SP) 
014454 01 HOV SP; RO 
0144 044 TRAP = CSPINTX 
014460 000010 ADO 610, SP 
2598 0 INC Ra sMUMBER OF THE NEXT 
° 920427 000007 R407 : ALL YET ? 
0 Scr 508 : IF 
014474 00276 T 208 PRINT FIRST 7 WORDS 
014476 032 000200 000012 BIT @X2..EXTF ,xST2CRS) EXTENDED FEATUTES 
0146 001355 gos ’ INT EXTENDED STATUS WORD 
014 $: TS 
2605 014510 04 116 045 PROASC: .ASCIZ ‘SNSA Message Suffer Address © 601905’ 
+95 | 014 O4 116 045 PRIASC: . ‘GNSA Meesege Buf Centente: ’ 
2607 01461 04 116 04 mie ‘SSA = Wor dsD1SA: 60° 
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PRMESS 


002276 
002274 


015022 
000003 


015125 
000005 


000014 


045 
045 
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- PRINT CONTENTS OF MESSAGE BUFFER 


-SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
¢ 
;ROUTINE TO PRINT paste | AND RECEIVED MESSAGE BUFFERS 


}IMPLICIT INPUTS: 
EXPMSG 


R OF WORDS IN BUFFER 


; : EXPECTED MESSAGE BUFFER 
; RECMSG - RECEIVED MESSAGE BUFFER 
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
Sean 
SAVREG }SAVE R1-RS UNTIL NEXT RETURN 
MOV. —-RO.RS VSAVE NUMBER OF WORDS 
MOV -—s- RCVLOADD,RO GET RECV LOW ADDRESS 
MOV 6,R4 Y LOW ADDRESS 
MOV. -—s RCVHIADD,R1 }GET RECV HIGH ADDRESS 
ROL = RO ‘SHIFT BIT15 TO C BIT 
ROL sR SHIFT TO HIGH ORDER FOR PRINTOUT 
PRINTX @6R4SGO.R1.RA JPRINT MESSAGE BUFFER ADDRESS 


MOV SP; RO 

TRAP CSPNTX 

ADD #10,SP 
PRINTX @PRMSG 

MOV @PRMSG1, -( SP) 
MOV #1,-(SP) 

MOV SP; RO 

TRAP C#PNTX 


R4 
MOV @EXPMSG Ri 


MOV @RECMSG,R2 
20%: MOV (R1),RO 
MOV cR2) R3 
OR RS 
PRINTX 
V cs 


sPRINT HEADER FOR CONTENTS 


sNUMBER OF THE CURRENT WORD 
sGET EXPD BUFFER ADDRESS 
sGET RECV BUFFER ADDRESS 
sGET EXPD 

+ RECV 

XOR or" mead 


MOV R4,- 
MOV Ra SP (SP) 
MOV @5,-(SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADD #14,SP 
INC RA sNUMBER OF THE NEXT 
CMP R4,R5S sODONE ALL YET? 
BGE 50% ;BR IF YES 
BR 20% 300 ANOTHER 
508: RTS PC RETURN 
SGO: .ASCIZ ‘sSNA Message Buffer Address = , 801805" 
PRMSG1: .ASCIZ ‘sNSA Hesoege Buffer Contents 
PRMSG2: .ASCIZ ‘sNSA @sD2sA EXPD: Seen RECV: SO068A XOR: #06’ 


SEQ 0066 





a et Ltt CL LL LLL LLL LL 
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| PRMSGEXP - PRINT EXPO/RECV MESSAGE BUFFERS 


) 





SEQ 0067 


-EVEN 
-SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


2647 
sets ' 
' 
| 9650 }ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
2651 ; ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE 10 SCREEN SPACE 
: 
2653 ; RO - NUMBER OF BYTES IN BUFFER 
i 
2655 ;IMPLICIT INPUTS: 
3 
2657 , EXPMSG - EXPECTED MESSAGE BUFFER 
2658 , RECMSG - RECEIVED MESSAGE BUFFER 
2659 bon 
015212 YTEX? ; 
2661 015212 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
2662 015216 010005 MOV RO.RS sSAVE NUMBER OF BYTES 
2663 015220 005037 002310 CLR PRMNO sINIT ERROR COUNT 
2664 015224 CLR R4 THE CURRENT BYTE 
2665 015226 012701 002312 MOV @EXPMSG,R1 ;GET EXPD BUFFER ADORESS 
015232 012702 002456 MOV @RECMSG.R2 ;GET RECV BUFFER ADDRESS 
2667 015236 111100 208: MOVB (R1),RO :GET EXPD BYTE 
2668 015240 042700 177400 BIC @tC<377>,RO ;CLEAR UPPER BYTE 
2669 015244 110037 015560 MOVB RO, PRBEXP sSAVE FOR ERROR REPORT 
2670 015250 111203 MOVB (R2),R3 ;GET RECV BYTE 
1 015252 042703 177400 BIC 6tC<377>,R3 ;CLEAR UPPER BYT 
2672 015256 110337 015562 MOVE $R3,PRBREC ;FOR ERROR REPORT 
015262 XOR RO.R3 ;XOR EXPO/RECV 
2674 015272 122122 CMPB Os (Rh) +, (R2)> 3EXPD = RECV? 
2675 015274 001431 BEQ 308 IF YES 
2676 015276 37 002310 INC PRMNO ;UPDATE ERROR COUNT 
2677 015 023727 002310 000010 CHP PRMNO, 08 ;PRINTED 8? 
2678 015310 101023 BHI 30% ik IF YES 
2679 015312 278: PRINTX @PRBMSG,R4,PRBEXP,PRBREC,.R3 
015312 010346 MOV R3, -(SP) 
015314 013746 015562 MOV PRBREC, -(SP) 
015320 013746 015560 MOV PRBEXP, -(SP) 
015324 01 MOV R4, -(SP) 
015326 012746 015426 MOV @PRBMSG, -( SP) 
015332 012746 000005 MOV #5, -(SP) 
015336 01 v SP ;>RO 
015340 104415 TRAP CSPNTX 
015342 062706 000014 614,SP 
2680 015346 FORCEXIT 50% :880 
2681 015356 000404 358 ;880 
2682 015360 308: 
2683 015360 FORCERROR 27%,NOTSSR ;880 
2684 015370 35%: :880 
2685 015370 INC R4 ;NUMBER OF THE NEXT 
2686 015372 020405 CMP R4,RS ;DONE ALL YET? 
2687 015374 002001 8GE 50% i8R IF YES 
2688 015376 000717 BR 208 ;00 ANOTHER 
2689 015400 50% PRINTX @PRBTOT.PRHNO ;PRINT TOTAL ERROR COUNT 
015400 013746 002310 MOV PRMNO, -( SP) 
015404 012746 015513 MOV @PRBTOT, -(SP) 
015410 012746 000002 MOV @2,-C(SP) 


015414 010600 MOV SP ,RO 
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015416 104415 TRAP CSPNTX 
015420 062706 000006 ADO SP 
see 015424 000207 RTS ;RETURN 
2692 015426 045 116 045 PRBMSG: .ASCIZ ‘sNSA BYTE @SD2SA EXPD: SO3SA RECV: SO3SA <XOR: 803° 
| ses 015513 045 116 04S PRBTOT: a ‘@NSA NUMBER OF BYTES IN ERROR = #02’ 
| 2695 015560 000000 PRBEXP: .WORD f¢) sEXPD 
2696 015562 000000 PRBREC: .WORD 0 RECV 
2697 "SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 
3¢ 
2699 3 
the sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
’ 
27 s INPUTS. 
270 3 
2704 : R1 RECEIVED DATA 
2705 3 R2 EXPECTED DATA 
2706 3 
2707 s- 
2708 
2709 015564 EXPREC 
015564 EXPREC:: 
2710 015564 004737 010032 J PC ,PRIXOR ;PRINT THE DATA 
2711 015570 Ee 
015570 L10017: 
015570 104423 C$MSG 
a718 .SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
7¢ 
2714 ’ 
he sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
: 
2717 ; 
2718 s INPUTS: 
2719 8 
2720 3 R1 RECEIVED DATA BYTE 
2721 ; R2 EXPECTED DATA BYTE 
2722 F 
2723 s- 
2724 
2725 015572 EXPBREC 
015572 EXPBREC: : 
2726 015572 004737 007702 JSR PC ,PRIBXOR sPRINT THE DATA 
2727 015576 ENOMSG 
015576 L10020: 
015576 104423 TRAP CSMSG 
zee 
sre .SBTTL RAMERR - PRINT RAM AND PACKET DATA 
3¢ 
2732 3 
ares sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
3 
2735 s INPUTS: 
2736 : 
2737 3 RS POINTER TO COMMAND PACKET 
2738 3 


ees ~ 
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SEQ 0068 


———— 


nm 
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RAMERR - PRINT RAM AND PACKET DATA 


SEQ 0069 


2739 IMPLICIT INPUTS: 
| S7aa ; RAMDATA DATA AS READ FROM THE RAM 
5742 : RAMSIZ NUMBER OF BYTES IN PACKET 
| $43 ‘ IF RAMSIZ*0 THEN DEFAULT TO 8. 
. } 
| 274s IMPLICIT OUTPUTS: 
5746 ; | 
5747 ; RAMSIZ SET TO 0 
3748 - | 
| S749 
2750 015600 BGNMSG RAMERR | 
015600 RAMERR: : 
2751 015600 004737 014066 JSR PC, PRAMPKT PRINT RAM/PACKET DATA 
2752 015604 ENOMSG 
015604 110021: 
a7ss 015604 104428 TRAP —«C$MSG 
| 2154 \SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 
3¢ 
2756 
2757 {PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
3759 } INPUTS: 
2760 3 
2761 ; Ra POINTER TO COMMAND PACKET 
2763 }IMPLICIT INPUTS: 
3765 : RAMDATA DATA AS READ FROM THE RAM 
3766 : RAMSIZ NUMBER OF BYTES IN PACKET 
5767 : IF RAMSIZ=0 THEN DEFAULT TO 8. 
5768 : ERRHI HISH ORDER TEST ADORESS 
2769 : ERRLO LOW ORDER TEST ADDRESS 
5771 IMPLICIT OUTPUTS: 
2772 3 
5773 : RAMSIZ SET TO 0 
5774 a 
3775 
3776 015606 BGNMSG RAMTADD 
015606 RAMTADD: : 
2777 015606 004737 010364 5sr PC,PRITADD PRINT TEST ADDRESS 
5778 015612 004737 014066 SR PC /PRAMPKT ‘PRINT RAM/PACKET DATA 
2779 015616 SG 
015616 10022: 
are 013616 108423 TRAP —C4MSG 
3781 _SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 
2784 \PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
3786 }INPUTS: 
2787 3 
5788 ; Ri RECEIVED DATA 


2789 3 R2 EXPECTED DATA ’ 
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- PRINT RAM EXPD/RECV DATA 


RAMEXP 


ie) 
015772 


015670 
000001 
000004 
010032 


116 


010246 
042702 177400 


045 





: R4 


L10023: 
.SBTTL 
t¢ 


;PRINT ROUTINE 
sAND TIMER A,B 


} 

s INPUTS: 

¢ 

3 R1 

: Re 

i- 
BGNMSG 

TIMEXP: : 
PRINTX 
MOV 
MOV 
MOV 
TRAP 
ADD 
JSR 
ENDMSG 

L10024: 
TRAP 

TIMSGO: .ASCIZ 

EVEN 
. SBTTL 


i¢ 

PRINT ROUTINE 
3 

s INPUTS: 


Fy R1 
3 R2 


BGNMSG 
BADSSR: : 


MOV 
BIC 
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SEQ 0070 


CONTROLLER RAM ADDRESS 


RAMEXP 

@tC<377>,R1 sSAVE EXPD RAM DATA BYTE 
@tC<377>,R2 sSAVE_EXPD RAM DATA BYTE 
PC .PRIRAM sPRINT THE RAM ADDRESS 
PC ,.PRIXOR sPRINT THE DATA 

CsMSG 

TIMEXP - PRINT TIMER A,B AND EXP/REC 


TO DISPLAY EXPD/RECV DATA 
HEADER MESSAGE 


RECEIVED DATA 
EXPECTED DATA 
TIMEXP 

@TIMSGO ;PRINT HEADER 
@TIMSGO 

@1,-(SP)_ 
SP. RO 
CSPNTX 


@4,SP 
PC,PRIXOR 


-(SP) 


sPRINT THE DATA 


C$MSG 
‘sNSA TIMER A STATUS IS IN BiT 38NSA TIMER B STATUS IS IN BIT 2’ 
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


FOR TSSR ERRORS ON DATA TRANSFERS 


CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 


BADSSR 
R2,-(SP) ;SAVE DATA TRANSFERRED 
#177400,R2 ;GET JUST ONE BYTE 
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| 
BADSSR - PRINT 
2835 015776 
$776 


016026 
2839 0160350 
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TSSR ERRORS ON DATA TRANSFERS 


016030 
000002 


L10025: 
045 XFERASC: 


@XFERASC,R2 
-(SP) 
OXFERASC, -(SP) 


SP.RO 
CsPNTB 


#6 ,SP 
(SP)+,R2 sRESTORE R2 
PC ,PRITSSR ;DECODE TSSR CONTENTS 


C$mMSG 
-ASCIZ ‘sSNSA Data Transferred = #03’ 


SEQ 0071 
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SEQ 0072 
| GLOBAL SUBROUTINES SECTION 
2041 .SBTTL GLOBAL SUBROUTINES SECTION 
j 
2843 3° | 
2844 } THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
2045 ; THAT ARE USED IN MORE THAN ONE TEST. 
gee 
2047 .SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
2849 3° 
2850 3 
2851 sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
2852 :B8Y WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
2853 sTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
2858 sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 
2856 LINPUTS: 
2857 : 
2858 ; RS ADDRESS OF FIRST REGISTER 
a 
2860 sOUTPUTS: 
2861 
2862 , RO CONTENTS OF TSSR, IF ERROR 
2863 : CARRY SET IF INIT WAS OKAY 
2064 ; CLEAR IF FATAL ERROR 
3 
2866 ;CALLING SEQUENCE: 
2867 : 
2 ; MOV @ADDRESS RS 
2869 ; JSR PC, SOF INIT 
2870 ; BCS CONTINUE 
2871 ; ERROF ;REPORT FATAL ERROR 
2872 : 
2873 :- 
2874 
2875 016064 SOFINIT: : 
2876 016064 SAVREG SAVE THE REGISTERS 
2877 016070 012765 000000 000002 MOV #0, TSSRCRS) ; DO THE INIT 
2878 016076 004737 016340 JSR PC. WAITF ; WAIT FOR SSR 
2879 016102 016500 000002 MOV TSSRC(RS),RO iGET THE TSSR REGISTER 
2880 016106 010004 MOV RO,R4 gISSR CONTENTS 
2881 016110 042704 176277 BIC OtC<HIADDR!OFL>,R4 
2882 016114 052704 002200 BIS @SSR!NBA,R4 3R4 HAS EXPECTED CONTENTS 
2883 016120 020400 CMP R4,RO ;ONLY EXPECTED BITS SET ? 
2884 016122 001402 BEQ S$ ;BRANCH IF OKAY 
2885 016124 000241 cLc iCLEAR THE CARRY FOR ERROR 
2886 016126 000401 BR 10 :GO TO EXIT 
2887 016130 000261 S$: SEC 3SET THE CARRY BIT 


2886 016132 000207 10%: RTS PC sRETURN TO CALLER 
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| CHKAMB - CHECK TSSR FOR AMBIGUITY 


2890 SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 
Pt % | 
2894 THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
3895 iF OR AMBIGUITY 
3896 
2897 PINPUT: 
2898 3 
2899 ; RO CONTENTS OF TSSR 
2900 3 
3901 SOUTPUT: 
3902 ; 
2903 ; RO CONTENTS OF TSSR 
i 
2905 : CARRY SET - NO AMBIGUITY 
3906 : CLR - AMBIGUOUS CONTENTS 
2907 3 
3908 . 
3909 
3910 016134 CHKAMB : 
2911 016134 SAVREG ;SAVE THE GENERAL REGISTERS 
5912 016140 010004 MOV —sRO :CONTENTS_ OF TSR 
5918 016142 032700 100000 BIT ase RO iS BIT 15 SET ? 
5914 016146 001004 BNE S$ iBRANCH IF YES 
5915 016150 032700 174077 BIT @*C<NBALOFL !SSRtHIADOR> RO ANY OTHER BITS SET ? 
3916 016154 001023 BNE MUST BE AN ERROR 
3917 016156 000424 BR ass RETURN WITH SUCCESS 
5918 016160 032700 000200 S$: BIT @SSR,RO IS READY BIT SET ? 
5919 016164 001011 BNE 108 ‘GRANCH IF READY BIT IS SET. 
16166 032700 000040 BIT @81TS,RO iI8 FATAL ERROR BIT 
5921 016172 001414 BEQ 408 RROR IF NOT 
5922 016174 042704 177761 BIC @TCTERCLS.R4 sCLEAR ALL BUT TERMINATION CODE 
5923 016200 020427 000016 CHP sé 016 {ALL THREE BITS MUST BE SET 
001007 BNE 408 tERROR IF NOT SET 
25 016206 000410 BR 45$ ‘OK IF ALL ARE SET 
5926 016210 032700 000040 108: BIT @B1TS,RO 'IS FATAL ERROR BIT SET ? 
3927 016214 001405 BEQ sé ERROR IF BIT IS SET WITH SSR 
5928 016216 032700 000006 BIT @81T2!8IT1,RO iI8 THIS A FUNCTION REJECT 
5929 016222 001002 BNE 458 8 TSSR IS OK 
5930 016224 000241 40s: CLC tONBIGUOUS CONTENTS 
5931 016226 000401 BR 50s 
5932 016230 000261 45$: SEC ;SHOW SUCCESS - NO AMBIGUITY 


2933 016232 000207 50%; RTS PC ;RETURN TO CALLER 
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2935 

36 
2937 

38 
2939 
2940 
2941 


2942 
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000340 


002214 
016234 
016235 


-SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


DEFAULT DISPLAY ae a et 
IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 


s BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 


IOKCKIN=B1T7 s DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 
IOKSTP=BITO 3 EXPECT “STOP” INTERRUPT. 


3 
kd pe MASK -- SAYS EXPECTING INTERRUPTS 
INTERRUPT FLAG -- —" - GOT ONE CIF POSITIVE) 


NTFLAG: .BYT 
SAVED INTERRUPT VECTOR: 
VEC: .WORD 0 
SAVE PC 
HTCPCe “woRO 0 
SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MO RO, -( SP) SAVE RO 
MOV Ive ‘GET POINTER TO VECTORS 
MOV aINTA, CRO)s ;SET UP INTERRUPT VECTOR 
MOV 107, (RO)+ 
MOV tsPas. RO sRESTORE RO 
MOV (SP), -(SP) 
MOV 60,2¢SP) ;SET CPU TO LEVEL 0 
RTI 
SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
OSBINT: MOV ;-(SP) 
HOV @PRIO7, 2(SP) 
.SBTTL INTR  - INTERRUPT HANDLERS 
a BGNSRV INTR ;DEFINE INTERRUPT ENTRY 
“" MOV @1, INTRECV :SET FLAG TO SHOW INTERRUPT RECEIVED 
CLRB =sINTFLAG ;CLEAR FLAG TO SAY WE GOT INTERRUPT 


My ee rEXPECTING STOP INTERRUPT? 
BISB @IOKSTP, INTFLAG NO. SET THE ERROR FLAG. 
;SAVE REGISTERS, MSG BUFFER, ETC. 


’ ENDSRV 
L10026: 


RTI 


SEQ 0074 








J 
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| SEQ 0075 
WAITF - WAIT FOR SUBSYSTEM READY 


gees -SBTTL WAILTF - WAIT FOR SUBSYSTEM READY 
$ | 
goet 3: SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
298 3 | 
344 s INPUTS: } 
298 3 
p45 3 RS ADDRESS OF FIRST DEVICE REGISTER 
2992 OUTPUTS: 
2993 3 
e994 3 RO CONTENTS OF LAST TSSR READ 
2995 3 CARRY SET - READY BIT SET 
de 3 CLR - TIMEOUT WAITING FOR READY 
299 3 
2998 016340 000401 WAITF:: BR is sNOP WHEN SUPER FIXED 
2999 016342 BREAK ; 0O A SUPVSR BREAK FIRST. 
016342 104422 TRAP 
3000 016344 012746 011000 1%: MOV #11000, -(SP) :25-APRIL-83 REV B - 1100 MSEC TIMER 
3001 016350 C1i6500 000002 2s: MoV TSSRC(R5),RO sREAD THE TSSR REGISTER 
soos 016354 105700 TST8 RO ;TEST FOR READY BIT SET 
3004 016356 100420 BMI 3% : EXIT ON STOP FLAG. 
3005 016360 OELAY 1 ; WAIT 100 USEC 
016360 012727 000001 MOV @1,(PC)+ 
016364 000000 . WORD 
016366 013727 002116 MOV LSDLY,CPC)-+ 
016372 000000 -WORD 0 
016374 005367 177772 DEC -6(PC) 
016400 001375 BNE 74 
016402 005367 177756 DEC -22(PC) 
016406 001367 BNE .-20 
3006 016410 005316 DEC CSP) sREOUCE DELAY COUNT 
3007 016412 001356 BNE 2s sRETRY UNTIL TIMER EXPIRES 
3008 016414 000241 CLC ; C = 0, CONTROLLER STILL RUNNING... 
3009 016416 000401 BR 4% + _ -OR AFTER 300 MSEC. 
3010 016420 000261 3%: SEC C =i, CONTROLLER IS STOPPED. 
goth iste? 005326 4$: DEC £aPde ;RESTORE STACK WITHOUT CHANGING CARRY BIT 
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3014 
3015 


30 

3017 
3018 
3019 


| Be 
| Be 


7 
3028 016426 004737 016340 
3030 016434 0047357 016154 
016440 3006 


3031 01 10 
32 016442 C32700 100000 
3033 01 1 


016446 001405 
34 016450 032700 074000 


012737 016520 
000200 


520 03 
016522 012716 016530 
000002 
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SEQ 0076 


-SBTTL CHKTSSR - CHECK TSSR FOR READY 


1° 
sTHIS ROUTINE WAITS FOR READY IN THE TSSR 
sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


INPUT: 
, RS ADDRESS OF CSR REGISTERS 
o 
sOUTPUT: 
; RO CONTENTS OF TSSR 
3 CARRY SET - AY 
: CLR - NOT READY AMBIGUOUS, OR SC SET 
eHKTSSR: 
J PC ,WAITF ;WAIT FOR READY 
Bcc 20% :BRANCH IF TIME OUT 
JSR PC ,CHKAMB ;TSSR AMBIGOUS? 
Bcc 10% :0R IF YES 
BIT @SC.RO sSPECIAL CONDITION SET? 
BEQ 158 3BR IF NO 
BIT @<SCE!BIE!RMRINXM>,RO ;ANY ERROR BITS SET? 
BEQ 158 :8R IF 
10%: CLC :SET FAILURE 
BR 20% ’ 
15%: SEC ;SET SUCCESS 
20%: ats PC ;RETURN TO CALLER 
“SBTTL XNXM = - CHECK FOR NONEXISTENT MEMORY 
} ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
: ON RETURN, IF "C” = 1, (R1) = NEXM ADDRESS. 
"C“ » 0, ALL ADDRESSES OK. 
}CALL: MOV ADR1,R1 
; MOV ADR2.R2 
3 JSR PC .NXM 
; RETURN ;TEST “C” AND PROCEED. 
XNXM: MOV €2¢,004 ; SET BUSERR VECTOR. 
MOV @PRI04 , 806 
CLR R3 FLAG. 
1%: TST (Ri) sTEST THE ADDRESS(ES) 
sIF ANY TRAP, CONTINUE AT 28. 
R1,R2 sOTHERWISE, CONTINUE HE 
BEQ 38 ;8R IF FIN (NO NEXM’S). 
@2.R1 3SET NEXT ADDRESS... 
BR 18 3...AND CONTINUE. 
2¢: Con R3 :GOT ONE, SET FLAG... 
MOV @3%,(SP) 
RTI .AND DISMISS INTERRUPT... 
38: CLRVEC 04 1 LJAND GIVE BACK THE VECTOR. 
MOV 04,RO 
TRAP CSCVEC 
TST R3 :0ID WE CATCH ONE 27 
BEQ 04 sNO, “C" = 0, SKIP NEXT. 
SEC iYES, "C* = i, (R1) = NEXM ADOR. 


eee 
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TSTLOOP - CHECK ITERATION COUNT 


SEQ 0077 


3968 .SBTTL TSTLOOP - CHECK ITERATION COUNT 
e 
3070 } SUBROUTINE TO EXECUTE TEST ITERATIONS. 
3071 ; EXIT WITH “C* SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
307 ; LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 
3078 } CALL: LOOPTO ARG 
3075 n 
3076 016546 STLOOP: : 
3077 016546 005737 002160 ist —sNOITS ; ITERATIONS INHIBITED? 
3078 016552 001006 BNE Osis 1 YES. 
3079 016554 005737 002174 1st —@vP 
3080 016560 100403 eeI sit 1 O0PS DISALLOWED IN QUICK PASS. 
3081 016562 005337 002206 DEC —«- LOOPCNT : BUMP LOOP COUNTER. 
$082 016566 901002 BNE Oo 
016570 000241 1: cLe ;LOOP DISALLOWED, OR DONE. 
3084 016572 000401 BA 38 
3085 016574 000261 2: SEC ;LOOP ENABLED. 
$086 016576 | c00207 3s: RTS PC 
3088 .SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
3090 ; PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
3091 } INCREMENT “TESTK* TO INDICATE THE NUMBER OF TESTS 
$092 | IN THE CURRENT RUN SEQUENCE. 
: CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
3095 INPUT: 
3096 3 
$097 : RO POINTER TO TEST ID ASCIZ STRING 
3099 SOUTPUT: 
3101 ; RS ADDRESS OF FIRST DEVICE REGISTER 
3108 IMPLICIT OUTPUTS: 
3105 : TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
3107 ‘SIDE EFFECTS: 
3109 : INTERRUPT LEVEL IS RASIED TO LEVEL OF 
3110 ; THE DEVICE UNDER TEST 
sith 3 
sits . 
3114 016600 TSTSETUP: : 
3115 016600 010046 HOV —s- RO, -( SP) SAVE THE TEST ID MESSAGE 
3116 016602 005037 003144 CLR —s STFLAG ; CLEAR "SOFT INIT" FLAG 
3117 016606 005037 017046 CLR RRK + CLEAR LOCAL ERROR COUNTER. 
3118 016612 005037 005770 CLR —sEXTA ; CLEAR ERROR EXTENSION FLAG. 
3119 016616 105037 016234 CLR@ = INTHASK ; CLEAR INTERRUPT MASK (CHECK ERROR) 
013700 002172 MOV —sUNITN RO ; GET THE UNIT 
3121 O1 006300 ASL RO 3... AND MAKE IT A WORD OFFSET. 
3122 005737 003104 TSt —— NODEV } O70 STARTUP FIND THE DEVICE? 
3123 016634 001430 Beati«ékS ; BR IF Y 
3124 016636 100010 ePLti‘é‘SSS : BR IF NOT IOLE 
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TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


| 
IN THE ERROR TABLE | 
| 


3125 016640 052760 160000 003166 ers #160000, ERTABL(RO) wb FLAG ERROR WE ERROR 
O1 104455 frees Rene ; 
016650 000001 .WORD 1 
016652 003736 [WORD WNXR 
127 oises6 407 BR 2 
: 016660 052760 160001 003166 3%: ers #160001, ERTABL(RO) + FLAG ERROR IN THE ERROR TABLE 
3129 016666 ERROF  2,NOINIT ; DEVICE NOT IDLE 
016666 104455 TRAP  CSEROF 
016670 . WORD 
016672 004 [WORD WNOINIT 
016674 * WORD 
3130 016676 012737 177777 003102 2%: HOV @-1,0UFLG ; DROP THE UNIT 
3131 016704 pou tN 
016 013700 002172 MOV UNITN,RO 
016710 104451 TRAP  C#D0DU 
3132 016712 DOCLN ; ABORT THE PASS 
016712 100444 TRAP  CSDCLN 
3133 016714 000423 BR 
3135 016716 4s: RFLAGS : GET THE OPERATOR FLAGS. 
016716 104421 TRAP CSRFLA 
3136 016720 032700 001000 BIT @PNT RO : PRINT THE TEST NUMBERS? 
3 7 016724 001412 BEQ ry : BR IF NO 
138 016 01 MOV SP).RO :GET THE ID MESSAGE 
3139 016 PRINTF @TNAM,RO ;DISPLAY THE TEST ID 
016 01 MOV RO, -( SP) 
016732 012746 016774 HOV @TNAM, -(SP) 
016 012746 000002 Mov .-($P) 
016742 O01 HOV RO 
016744 104417 TRAP CSPNTF 
0167 962706 000006 ADO sP 
3140 016 37 002204 18: INC TSTCNT ; BUMP TEST COUNTER. 
3141 016 SETPRI IPRI sPRIORITY THAT OF DEVICE 
016 013700 002202 MOV TRO 
016 104441 TRAP  CSSPRI 
142 016764 726 S$: TST (SP) sFIX UP THE STACK 
143 016766 013705 002176 mov CSRADOR RS 3 ADORESS OF TSV REGISTERS ON UNIBUS 
$145 016774 045 123 045 NAM: . ASCIZ ‘SSSTSA Test’ 
ip “SBTTL TSTEND - PRINT ERRORS RECEIVED 
ay 
14 ; AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
is ; IF NORMAL ERROR REPORTING IS DISABLED (FLA: IER). 
017010 TSTEND: RFLAGS RO 
017010 1 TRAP CORELA 
153 017012 020000 eT 0, @IER 
154 017016 001412 ) 18 ; OR IF “IER NOT SET. 
017020 PRINTF #€SUM,ERRK 3 PRINT ERROR COUNT. 
017020 013746 017046 MOV ERRK. -(SP 
01 012746 017050 HOV @€SUM, -( SP) 
01 012746 000002 HOV 2. << ) 
01 01 MOV RO 
017036 104417 TRAP ss COPINTF 
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| SEQ 0079 
| TSTEND - PRINT ERRORS RECEIVED 
017040 062706 000006 ADD 06, SP 
3156 017044 000207 1s: RTS PC 


3158 017046 000000 ERRK: 0O s LOCAL ERROR COUNT. 
3159 017050 045 101 040 ESUM: -ASCIZ /#A_ #D#A_ERRORS/ 
tet 017067 105 122 122 EMAXDU: oy ZERROR LIMIT REACHED -- DROPPING UNIT/ 


uate Ct LL AA 
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_INCERK 


w 
~ 
a 
~“ 
°o 
~~ 
~ 
~ 
= 


017166 
3177 017170 


3179 017172 
3160 017174 
7200 


1 
3196 017270 


001013 
012737 


104455 
000004 
017067 
000000 


013700 
104451 


104444 
012600 
000207 
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- INCREMENT LOCAL ERROR COUNT 


SEQ 0080 


- INCREMENT LOCAL ERROR COUNT 


} ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


SBTTL INCERK 
017046 INCERK: INC ERRK 
MoV RO, -(SP) 
002172 MOV UNITN, RO 
ASL RO 
003166 ADD @ERTABL RO 
INC (RO) 
00/777 BIT 07777, (RO) 
BNE 18 
DEC (RO) 
1: MOV (SP)+,RO 
RTS pC 
CKEMAX: MOV -(SP) 
002172 MOV UNE TN: RO 
ASL RO 
003166 MOV ERTABL(RO),RO 
170000 BIC #170000. RO 
002164 CHP RO ,GE 
BHIS 18 
017046 002162 CHP ERRK , LERRMAX 
BLO Osétks 
1: RFLAGS RO 
TRAP CSRFLA 
000040 BIT 6IDU,RO 
BNE 23 
177777 003102 MOV @-1,DUFLG 
ERRDF 4, EMAXDU 
TRAP CuEROF 
_WORD 
‘WORD EMAXDU 
“WORD 0 
600U. —«UNITN 
002172 MOV UNITN, RO 
TRAP  C$0000 
DOCLN 
TRAP CS0CLN 
2s: MOV (SP)+,RO 
RTS —s- PC 


INCREMENT LOCAL ERROR COUNT 
SAVE 


NUMBER, 

MAKE IT A WORD OFFSET 
RO GETS ADDRESS OF ERROR TABLE ENTRY. 
INCREMENT THE DEVICE ERROR COUNT 
ore OVERFLOW THE FIELD? 


NO. 
YES -- BACK IT UP TO 7777. 
RESTORE 
RETURN TO CALLER. 


SAVE RO 
GET UNIT R 

.. AND MAKE IT A WORD OFFSET 
GET ERROR TABLE ENTRY 
EXTRACT ERROR COUNT FIEL 0 
as Se LIMIT EXCEEDED FOR THIS UNIT? 
Is Locke. LIMIT EXCEEDED FOR THIS TEST? 


GET OPERATOR FLAGS 
IS DROPPING INHIBITED? 
BR IF YES. 

NO -- DROP THE UNIT 


RESTORE RO 
RETURN TO CALLER 
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SEQ 0081 
CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
3198 .SBTTL CKOROP - CHECK IF UNIT SHOULD BE DROPPED 
s¢ 
$200 ; CHECK IF UNIT SHOULD BE DROPPED 
$208 017272 010046 éxpROP: MOV RO, -(SP) 
3203 017274 FORCERROR 1%, NOTSSR 
3204 017304 RFLAGS 
017304 104421 TR CSRFLA 
3205 017306 032700 000040 BIT @I0U,RO 
3206 017312 001010 BNE is 
3207 017314 011600 MOV (SP),RO 
3208 017316 012737 177777 003102 MOV @-1,0UFLG 
3209 017324 DOOU  —«UNITN 
017324 013700 002172 MOV UNITN,RO 
017330 104451 TRAP  C8000U 
3210 017332 DOCLN ;ABORT THE PASS 
017332 104444 TRAP  CSOCLN 
3211 017334 012600 18: MOV (SP )+,RO 
3212 017336 ©00207 RTS PC 
Bit 
$215 .SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
; 
$217 ; SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM. 
3219 017340 bonr 1c: 
3220 017340 004737 016064 JSR PC, SOF INIT 
3221 017344 000207 RTS 
$222 .SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
; 
3228 ; SUBROUTINE - ENABLE MEM MGT. 
7 
3226 017346 005737 003122 KTON: TST KTFLG ; GOT KT? 
3227 017352 001403 BEQ 18 ; NC. 
3228 017354 012737 000001 177572 MOV #1,SRO ; YES. ENABLE KT11. 
3229 017362 000207 1s: RTS PC 
3230 
3231 3 
$232 ; SUBROUTINE - DISABLE MEM MGT. 
; 
3234 017364 005737 003122 KTOFF: TST KTFLG ; GOT KT11? 
3235 017370 001405 BEQ 18 ; NO. 
3236 017372 000240 NOP 
3237 017374 000240 NOP 
3238 017376 012737 000000 177572 MOV @0,SRO ; DISABLE KT. 
3239 017404 000207 1s: RTS PC 


TSV3 - GLOBAL AREAS 
SETMAP - SETUP PAR6 MAPPING 


Bee 


© 
o 
2 
~ 
8 
8 
g 


0 
017412 005737 003122 


017452 042701 000177 
017456 020137 003122 


1 
017464 010137 172352 
042702 160000 
017474 062702 120000 


01 
017510 000207 


SOK 
Soex 
: 
= 


3295 017512 
3296 017512 
3297 017516 004737 017364 


- SBTTL 


7 
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SETMAP - SETUP PAR6 MAPPING 


i THIS ROUTINE + A UP KERNEL PAR6 TP_HANOLE 
THE OFFSET INTO THE PAGE 
- RETURNED BIASED TO PARG. 


sAN 18 BIT ADDRESS 


TINPUTS: 


RO 
CARRY 


SAVREG 
TST 


108: cLC 


~ 
uw 
e< 
.* @ 
~« 
Ww 


° 


INPUTS: 
FREE 
KTFLG 

OUTPUTS: 
NONE 


“Vics oo as oe oe as oe oF oe oe oe as oe OF 


ILLMEM: 
SAVREG 
JSR 


HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 


OF FSET pth I ae WITH PAR6 BIAS (I.E. THE ADDRESS) 


SET IF SUCCES 
CLR IF ERROR 


@177,R1 
R1,KTFLG 


15% 


sSAVE R1-R4 UNTIL NEXT RETURN 
sever" HAVE ABOVE 28K? 


38 NO 
;SAVE LOW ORDER BITS 


sCONVERT WORD ADDRESS TO 32W BLOCKS 
sMAKE IT DOUBLE PRECISION 


sALINE FOR LOWER 4K BOUNDARY 
oy ves EXISTING MEMORY? 
sSETUP MAPPING REGISTER PARS 
; SETUP DISPLACEMENT IN PAGE 
sADD IN PARS BIAS 

;RETURN IN 

“wee SUCCESS 


; iSET FA FAILURE 


PC 
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 


FILL MEMORY WITH A BACKGROUND PATTERN 


RO = BACKGROUND PATTERN 


= FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
* SET TO HIGHEST MEMORY LOCATION IF > 28K. 


PC ,.KTOFF 


sSAVE R1i- ~ J UNTIL NEXT RETURN 


SEQ 0062 


"TSV3 - GLOBAL AREAS 
| FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
3298 017522 
3299 003114 
003116 
108: 
003122 
017346 


003142 


017406 
140000 


020000 
000200 172352 
172352 006000 


3321 8338 
003134 
177572 
042704 177761 
022704 000016 
003136 


172352 


308: 


35$: 
007600 


00040 
012737 000020 172516 
000137 017632 
004737 017364 
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RO,R3 
FREE ,R1 
FRESiz,R2 
R3,CR1 > 


10% 

KTFLG 

SS$ 

PC ,.KTON 
PST32W,R1 
6 


Ri 
RO 


PC. SETMAP 
R3,CRO)+ 
RO, #140000 
30% 


#20000 ,RO 
€200 , B@KIPARS 
BOKIPARS , 26000 


S0$ 

T23A 

35% 

SRO,R4 
#177761,R4 
#16,R4 


50$ 
T238 


45$ 
BOKIPARS , #7600 
40$ 


45% 
@20,SR3 
PC ,KTOFF 
PC 


SEQ 0083 


sCOPY TEST PATTERN 

sGET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 28K. 
sSTORE A BACKGROUND 

Ds “ MEMORY IN FREE SPACE? 


‘ LE KT. 
;HIGH ORDER ADDRESS STAR 
;GET >28K START ADDRESS tn 32W BLOCKS) 


sCLEAR C BIT 
sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sSETUP PARS MAPPING REGISTER 
sSTORE TEST PATTERN IN >28K ADDRESS 
sEND OF PARS MAPPING AREA? 


i8R IF 

;BACKUP INTO PARS MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K 

;END OF MEMORY BELOW XMON AREA? 


38R IF YES 


CON 
sCLEAR ALL BUT NPAGE NUMBER 
3SEE IF PAGE 7 
+1y IF THERE 
4238? 
sNO KEEP GOING 
— 18 BITS? 
sv 
sNO_ KEEP GOING 
sSET 22 BIT RELOCATION 
sKEEP GOING ON ETC. 
; DISABLE KT. 
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SEQ 0084 
_ CHPHEN - COMPARE MEHORY TO BACKGROUND PATTERN 
3339 SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
$ o 
3341 + COMPARE MEMORY WITH A BACKGROUND PATTERN 
: 
3343 ; INPUTS: 
3344 3 
3345 ; RO = BACKGROUND PATTERN 
3346 : FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
3347 : KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 26K. 
3 
3349 : OUTPUTS: 
3350 : 
3351 : CARRY - SET IF NO ERROR 
3352 ; CARRY - CLR IF ERROR 
V 
3354 } IMPLICIT OUTPUTS: 
3 
3356 : ERRHI - ERROR HIGH ADDRESS 
3357 ; ERRLO - ERROR LOW ADDRESS 
3358 ; EXPD  - EXPECT 
3359 : RECV  - RECEIVED DATA 
3360 i- 
3361 017750 MPMEN: 
3362 017750 SAVREG }SAVE R1-RS UNTIL NEXT RETURN 
3363 017754 010003 MOV. RO.R3 COPY TEST PATTERN 
3364 017756 004737 017364 JSR —s-PCLKTOFF ;OISABLE KT. 
3365 017762 013701 003114 MOV. sd FREE, R1 ‘GET FIRST FREE LOCATION 
3366 017766 013702 003116 MOV —s FRESIZ,R2 SIZE OF FREE SPACE BELOW 28K. 
3367 017772 020311 108: CMP —-R3.CRID ‘FREE SPACE LOCATION EQUAL TO EXPD? 
3368 017774 001411 6EQs«a58 i@R IF YES 
3369 017776 010137 002230 MOV —sR1., ERRLO SAVE ADDRESS IN ERROR 
3370 020002 005037 002226 CLR —- ERRHI iNO HIGH ADDRESS 
3371 020006 010337 002222 MOV —s- RB. EXPD SAVE EXPD FOR ERROR REPORT 
3372 020012 011137 002224 MOV —s- CRA) RECV SAVE RECV FOR ERROR REPORT 
3373 020016 000474 BR 50$ : 
3374 020020 005721 1S#: TST (R1)* IPOINT TO NEXT ADDRESS 
3375 020022 005302 DEC Os «aR DONE ALL MEMORY IN FREE SPACE? 
3376 020024 003362 ect 108 ‘BR IF NO 
3377 020026 005737 003122 TST —sOKTFLG ; GOT KT? 
3378 020032 001472 BEQ s«SS8 ; NO. GET OUT. 
3379 020034 004737 017346 JSR «PC, KTON ; YES. ENABLE K 
3380 020040 005000 CLR —s RO THIGH ORDER ADDRESS STAR 
3381 020042 013701 003142 MOV —s- PST32W,R1 Ean oek START ADDRESS CIN S2W BLOCKS) 
3382 000006 "REPT «66 
3383 ROL RL ‘CONVERT BLOCKS TO WORDS 
3504 ROL RO MAKE IT DOUBLE PRECISION 
3386 020076 042701 0v0177 BIC #177, R1 ;ALINE 4K BOUNDARY 
3387 020102 010046 MOV —s- RO, -¢ SP) ‘SAVE HIGH ORDER 
3388 020104 010146 MOVs R1.-CSP) iSAVE LOW ORDER 
3389 020106 004737 017406 JSR «PC SETMAP ‘SETUP PAR6 MAPPING REGISTER 
3390 020112 010004 MOV sROLR4 ‘COPY ADDRESS BIASED TO PAR6 
3391 020114 012601 MOVs CSP)+, RI RESTORE LOW ORDER IN NON PAR6 FORMAT 
3392 020116 012600 MOV —s- CSP-)« | RO RESTORE HIGH ORDER IN NON PAR6 FORMAT 
3393 020120 020314 30s: CMP —s RB, (RA) {ABOVE 28K LOCATION EQUAL EXPD? 
3394 020122 001411 SEQ ~Ssé328 i8R IF YES 
3395 020124 010037 002226 MOV —s RO ERRHI SAVE HIGH ORDER IN ERROR 
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SEQ 0085 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
3396 020130 010137 0022350 MOV R1,ERRLO sSAVE LOW ORDER IN ERROR 
3397 020134 010337 002222 MOV R3,EXPD sSAVE EXPD FOR ERROR REPORT 
3398 020140 011437 002224 MOV CR4),RECV ‘med RECV FOR ERROR REPORT 
3399 020144 000421 BR 50% 
3400 020146 062701 000002 328: ADO @2,R1 iUPDATE NON PAR6 ADDRESS 
3401 020152 005500 ADC RO MAKE IT DOUBLE PRECISION ADD 
3402 020154 062704 000002 ADD #2,R4 } UPDATE = FORMAT ADDRESS 
3403 020160 020427 140000 CMP R4, #140000 sEND OF PARS MAPPING AREA? 
3404 020164 103755 BLO 30$ 3;68R IF NO 
3405 020166 162704 020000 sus #20000 ,R4 sBACKUP INTO PAR6 MAPPING BEGIN 
3406 020172 062737 000200 172352 AOD €200, B@KIPARS sPOINT TO NEXT 4K BLOCK >28K. 
3407 020200 023737 172352 003122 CMP SOKIPARS, KTFLG ;END OF MEMORY? 
101744 BLOS +9) 36R IF NO 

3409 020210 004737 017364 S0$: JSR PC .KTOFF 3TURN OFF MEMORY MAPPING 
3410 020214 000241 CLC 3SET FAILURE 
3411 020216 000403 BR 60$ 3 
ty 020220 004737 017364 55%: JSR PC ,KTOFF sTURN OFF MEMORY MAPPING 
3413 020224 000261 SEC iSET SUCCESS 
3414 020226 C00207 60%: RTS PC 
341 .SBTTL REGSAV - SAVE R1-RS ON STACK 
3416 :¢ 
3417 3 
3418 sROUTINE TO 
$34 sSAVE R1 THROUGH RS ON THE STACK 

3 
3421 sCALLING SEQUENCE: 
3422 8 
eens : JSR RS,REGSAV 
3425 ‘THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
3426 ;THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
3427 sTHE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
sass sREGISTERS. 

3 
3430 ;THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
3431 s;CALLED VIA A JSR PC INSTRUCTION 
3432 3 
3433 3- 


3434 
3435 020230 REGSAV: 
MOV 
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SEQ 0086 
| GETPAT - GET 86 BIT PATTERN FROM OPERATOR 


tty .SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
s¢ | 
sas$ sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
t | 
3454 s INPUTS: NONE. | 
3455 3 
3456 sOUTPUTS: 
oth $ RO OCTAL NUMBER FROM THE OPERATOR 
é 
3459 sCALLING SEQUENCE: 
3460 3 JSR PC ,.GETPAT 
sae2 ée 
3462 020264 TPAT:: 
3463 020264 SAVREG SAVE THE GENERAL REGISTERS 
3464 020270 18: GMANIO DATASC ,PATDAT,0,377,0.377,NO 
020270 104443 TRAP C$GMAN 
020272 000406 BR 10000$% 
020274 020320 -WORD PATDAT 
020276 C00022 .WORD TSCODE 
020300 020322 -WORD DATASC 
020302 000377 -WORD 377 
020304 000000 .WORD TSLOLIM 
306 000377 .WORD TS$HILIM 
020310 100008: 
3465 020310 BNCOMPLETE i$ sRETRY IF ERROR 
020310 103367 BCC 1$ 
3466 312 013700 020320 MOV PATDAT,RO ;DATA PATTERN FROM OPERATOR 
os 34 020316 000207 RTS PC ;RETURN TO CALLER 
3469 3¢ 
3470 ;LOCAL DATA AREA 
Bn ; 
3473 020320 000000 PATDAT: .WORD 0O 3; TEMPORARY STORAGE FOR DATA 


3474 020322 105 116 124 DATASC: .ASCIZ ‘ENTER DATA PATTERN’ 
3475 - EVEN 
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SEQ 0087 
GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
3477 .SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE | 
te i 
3479 sROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE. 
’ 
3481 s INPUTS: 
3482 : RO ADDRESS OF ASCIZ STRING OF MENU 
3483 , Ri MAXIMUM ALLOWABLE OPERATOR RESPONSE 
3484 5 
3485 ; OUTPUTS: 
$496 : RO NUMBER OF THE OPERATOR'S SELECTION 
3488 020346 GETSEL: : 
3489 020346 SAVREG ;SAVE GENERAL REGISTERS 
3490 020352 010002 MOV RO,R2 sSAVE THE MENU ADDRESS 
3491 020354 010203 18: MOV R2.R3 sSTART OF MENU STRING 
3492 020356 005713 28: TST CR3) sEND OF ASCII ? 
3493 020360 001412 BEQ 38 ;BRANCH IF ALL LINES DISPLAYED 
3494 020362 PRINTF @SELASC,(R3)+  ;DISPLAY THE MENU 
020362 12346 MOV (R3)+,-CSP) 
020364 012746 020532 MOV @SELASC, -(SP) 
020370 012746 000002 MOV @2,-(SP) 
020374 010600 MOV SP.RO 
020376 104417 TRAP CSPNTF 
020400 062706 000006 ADD 66,SP 
3495 020404 000764 BR 2% 
3496 020406 3%: GMANID MENASC ,MENRES,.O,-1,0, -1,NO 
020406 104443 TRAP C$GMAN 
020410 000406 BR 0001$ 
12 020566 .WORD MENRES 
020414 000042 "WORD TS&CODE 
020416 020537 “WORD MENASC 
020420 177777 ‘WORD -1 
020422 000000 "WORD TSLOLIM 
020424 177777 “WORD TSHILIM 
020426 100018: 
3497 020426 BNCOMPLETE 1s ;RETRY IF ERROR 
020426 103352 Bcc 1 
3498 020430 013700 020566 MOV MENRES ,RO :GET THE OPERATOR'S REPLY 
3499 020434 020001 CMP RO,R1 sCOMPARE TO ITAXIMUM ALLOWED 
3500 020436 101411 BLOS 5% ;BRANCH IF OK 
3501 020440 PRINTF @MENERR ;DISPLAY ERROR MESSAGE 
020440 012746 020464 MOV @MENERR, -(SP) 
020444 012746 000001 MOV #1, -C(SP) 
020450 010600 MOV : 
020452 104417 TRAP = CPNTF 
020454 062706 000004 ADD 64,SP 
3502 020460 000735 BR 18 ;RETRY 
3503 020462 000207 S$: RTS PC ;RETURN TO CALLER 


045 116 045 -ASCIZ a Menu Selection Too Large *#' 


3504 020464 MENERR : 
3505 020532 045 116 045 SELASC: .ASCIZ 
seoe 020537 105 156 164 MENASC: oy ‘Enter Menu Selection: ‘ 


3508 020566 000000 MENRES ; -WORD O 
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SEQ 0088 
| CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
310 .SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
3¢ 
3512 3 
set2 sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
3 
3515 s INPUT: | 
3516 3 
3517 ’ NONE . 
3518 3 
23h sOUTPUT: 
520 3 
3521 3 CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
ses§ 8 1 MANUAL INTERVENTION IS OK 
3 
sess sSIDE EFFECTS: 
S25 3 
3526 3 A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
3527 8 NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
3528 3 ALLOWED. 
3529 3 
3530 s- 
3531 
3532 020570 CHKMAN: : 
3533 020570 SAVREG sSAVE THE REGISTERS 
3534 020574 MANUAL sSEE IF MANUAL INTERVENTION OK 
020574 104450 TRAP CSMANI 
3535 020576 BCOMPLETE 1$% ;BRANCH IF ALLOWED 
020576 103411 6cs i$ 
3536 020600 PRINTF @NOMAN sPRINT THE WARNING MESSAGE 
020600 012746 020624 MOV »-CSP) 
012746 000001 MOV #1,-C(SP) 
020610 O1 MOV ° 
020612 104417 TRAP CSPNTF 
020614 706 000004 ADD ° 
3537 020620 000241 CLC sCLEAR CARRY FOR ERROR 
34 020622 000207 1%: RTS PC s;RETURN 
3540 020624 045 116 045 NOMAN: .ASCIZ ‘SNSA #¢¢ Manual Intervention not Allowed - Test Aborted #ss‘. 


3541 even 
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| 
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357 

3578 021070 
3579 021072 
3580 


3581 
3582 021076 
3583 021076 
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- SETUP FREE DIAGNOSTIC SPACE 


003114 
003116 
003116 


002120 


- SETUP FREE DIAGNOSTIC SPACE 


; SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


.SBTTL ENVIRN 
ENVIRN: MEMORY RO 
TRAP CSMEM 
MOV RO, FREE 
ADD @2.FREE 
MOV (RO) ,FRESIZ 
SUB »FREST 
MOV LSUNIT,R2 
108: SUB 67, FRESIZ 
DEC R2 
BNE 10% 
MOV FREE ,RO 
ADD FRESIZ,RO 
SUB 2, 
MOV RO. FREEHI 
NOP 
MOV @BDVPCR,R1 
MOV R1,R2 
ADD @2.R2 
JSR PC. XNXM 
ecc 153 
BR 408 
15%: MOV BOVPCR,R1 
ADD #1,R1 
MOV @BOVPCR,R2 
INC 
MOV BOVPCR.R3 
cM R1,R3 
BNE 20% 
INC T23A 
arc #170000, L $HIME 
3 NOP 
; PRINTF M8186 
BR 40% 
208 INC T238 
3 
; PRINTF #48189 
40%: 
RTS PC 


s GET 1ST FREE ACORESS... 
3...AND WORD COUNT. 


s GET NUMBER OF UNITS 
3 TAKE AWAY 7 WORDS PER UNIT 


sGET FIRST FREE ADDRESS 
sPOINT TO LAST FREE ADDRESS 
BA WORD 


CKUP 1 
i STORE LAST FREE ADDRESS 
$OOO006066000000000000000000000000000000888 
sGET a. ADDRESS 


ANGE 
sSEE IF WE HAVE ONE 


FLAGS 
sRETURN WITH FLAGS CLEAR 
sSAVE PCR CONTENTS 
3ADD ONE T 
;GET BDOV11 PCR ADDRES 
sTRY TO WRITE TO IT 
sGET RESULT 


3BR 40% FOR RELEASE 
sTELL THE SYSTEM TYPE 


sRETURN 

3SET THE FLAG 

sB8R 40% FOR RELEASE 
sTELL THE SYSTEM TYPE 


sRETURN 
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| 
| 
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KTINIT 
3585 


021100 


001367 
012741 
000405 


012716 
000002 


010037 
000207 
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003122 
003124 
002120 


021236 
177572 
002120 
007777 
003777 
000177 
000004 
172340 
077406 


000200 
002000 


177600 


3¢ 


- SETUP KT11 MEMORY MANAGEMENT REGISTERS 
- SBTTL 


KTINIT 


$ 
sROUTINE TO INIT KT-11 


KTINIT: 


KTFLG 
KTENABLE 
L#HIME ,@1577 
$2) BeERAVEC 
@eSRO 


LSHIME ,KTFLG 
07777 ,KTFLG 


at 
03777 .KTFLG 
0177, KTFLG 
RO, B#ERRVEC 
@KIPARO,R1 
#77406 -40(R1) 
7 
@200,RO 
RO, #2000 
#177600, -(R1) 
98 


#6%,(SP) 


RO, BOERRVEC 
PC 


=e Ge Ge Ge Ge Ge ce Ge GF Ge Ge oF 


ee ee Ge Ge w GF GF Ge ce oe 


- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


INIT >26K MEMORY FLAG 
INIT TEST >28K FLAG 
GOT ENOUGH 


MEMORY (>286K)? 


NO. 
SAVE OLD _. vec PTR. 


SET Hoy VEC P 


? 

TRAP Pi NO). 
ES. SET KT FLAG. 
256K ? 


GOT 
C 

Y 

> 


“0 
MLIGN ON BOUNDARY 


RESTORE Bs Ae VEC PTR. 


RO = AR 


AT “I/0"? 


REG. 
Une. AR DATA BY “4K". 


NO. 
YES. SET KTPAR7 FOR I/0. 


SET 


UP RETURN 
RTI TO NEXT LOCATION 
RESTORE OLD ERR VEC PTR. 
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KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
3625 
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SEQ 0092 
_KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
| 3627 s¢ 
soso 3 SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
1 ! 
se30 3 Requires that SOFINIT and WRTCHR have been done previous to call. 
’ 
3632 3 
3633 s INPUTS: 
3634 ; RS CURRENT UNIT NUMBER 
3635 sOUTPUTS: 
3636 ; The Extended Features Switch is set. 
3637 : 
3638 3° 
3639 
364 


TSVS - GLOBAL AREAS 


KTINIT 


: ss g geees fe | geeeKeeeese 
SE4E4 
SOW - © wu 
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- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


002176 
016064 


021450 
000200 


100206 
022200 


000006 
100010 
022170 
010752 


022140 


022170 
022172 
022176 
022200 


3¢ 
3 SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
’ 
8 Requires thet SOFINIT end WRICHR have been done previous to cell. 
rs 
} INPUTS: 
3 CURRENT UNIT NUMBER 
;OUTPUTS: 
3 The Extended Features Switch is set. 
3 
g¢ 
INVERT: : 

mov cesreddr,rS 

sr ,sofinit 

8 $ 

errdf no, 8 fi 

err rrno,s err.s 

TRAP OC SERDF he. 

.WORD 843 


258 kl trap cterdf 
ck loop 
TRAP CSCLP1 
mov unitn,t3 
Mov Ot39pk2,r4 
jer Bw 
3 $ 
i r0,rl . 91 
er errno,urtmsg,.s 
TRAP CSERHAD _— 


:WORD wrtmsg 
-WORD sfimsg 
trap cterhrd 


50% ck loop 
TRAP C$CLP 
mov t39bfrei2.ri 
bit @it7.r 
bne is 
108: MOV #100206 , CHDPKT ; WRT SUB-SYS MEM CMD 
MOV @WSMBK , CHDPKT +2 ; MSG BUF ADOR 
MOV 06 , CHOPKT +6 ; BYTE COUNT 
MOV #100010, WSMBK ; INVERT THE SWITCH 
MOV T.R ; SET CMDPKT INTO R4 
JSR PC ,WRTCHR : IT 
18: RTS ; RETURN 
T39OLY: .WORD 0 ;DELAY COUNTER FOR TEST 
*e<, 610>€177770 
TSOPACKET : ;COMMAND PACKET FOR TEST 
.WORD 140006 ;WRITE SUBSYSTEM MEM. CMD, ACK,CVC=1 
"WORD TS9TAD ;ADDRESS OF CHARACTERISTICS BLOCK 
“WORD 10. sSTARTING VALUE OF BLOCK SIZE 
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SEQ 0094 
KTINIT - SETUP KT1i MEMORY MANAGEMENT REGISTERS 
369i 021430 TS9OTAD: ;CHARACTERISTICS DATA BLOCK 
3692 021430 000 T398S0: .BYTE 0 sBSELO BYTE 
3693 021431 000 T396S1: .BYTE 0 iBSELL BYTE 
3694 021432 000000 T398S2: .WORD 0 ;B6SEL1 WORD 
3695 021434 000000 -WORD O SDATA 
ote 4 021436 T39BFR: .BLKW 150. sMESSAGE BUFFER 
3698 
3700 022120 .*¢,+10>€177770 
3702 022120 T39PK2: sCOMMAND PACKET FOR TEST 
3703 022120 140004 . WORD 140004 i WRITE CHARA. MEM. CMND.. ACK,CVC=1 
| 3704 022122 022150 -WORD T39DTA sADDRESS OF SELECT DATA BLOCK 
3705 022124 000900 -WORD O 
sree 022126 000012 . WORD 10. sSTARTING VALUE OF BLOCK SIZE 
3708 
3709 022130 T39DTA: ;SELECT DATA BLOCK 
3710 022130 021436 -WORD T39BFR sADDRESS OF MESSAGE BUFFER 
3711 022132 COOo000 -WORD O 
3712 022134 000400 -WORDB 256. sLENGTH OF MESSAGE BUFFER 
3713 022136 000000 T39EAI: .WORD 0 sEAI BIT WORD 
3714 022140 000000 T390SW: .WORD 0 sORIVE SELECT WORD ETC 
3716 022150 -*¢<,#10>€177770 
3718 022150 140012 T39PK3: .WORD 140012 ;MESSAGE BUFFER RELEASE COMMAND 
373 022152 000000 -WORD 0O ;NOT USED 
3 
3721 ;WRITE TAPE PACKET 
3722 3 
3724 022160 -*¢,¢10>E€177770 
3726 022160 140005 T39PK4: .WORD 140005 ;WRITE, ACK, CVC=1 COMMAND 
3727 022162 000000 T39WR: .WORD O ;ADORESS OF WRITE BUFFER 
3728 022164 000000 -WORDB O sMORE ADDRESS OF WRITE BUFFER 
134 022166 000400 T39SIZ: .WORD 256. ;SIZE OF RECORD 
s7s5 F COMMAND PACKET. 
s735 022170 . = <,*3>€177774 sMUST BE ON MOD 4 BOUNDRY. 
3735 022170 000000 CMOPKT:: O 31ST WORD IS TSOS COMMAND. 
3736 022172 000000 re] s2ND WORD IS THE BUFFER LOW ADDRESS. 
3737 022174 000000 0 ;3RD WORD IS THE BUFFER HIGH ADDRESS. 
s738 022176 000000 fe] 34TH WORD IS THE BYTE/RECORD/FILE COUNT. 
arek 3 WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
3742 022200 000000 WSMBK:: O 31ST oe SEL 0 
3743 022202 000000 ce) 32ND WORD:: SEL 2 
3744 022204 000000 fe] ;3RD WORD:: SEL 4 
ne . EVEN 
3° 
Lit 3 SUBROUTINE TO CHECK WETHER OR NOT WE’LL TEST NXM 
3 
3749 F 
3750 ; INPUTS: 
3751 sOUTPUTS: 
3752 : The NXMFLG is set if we can test. 


3753 3 The NXMLO and NXMHI eddresses are setup. 
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SEQ 0095 


KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
3754 :- 
3755 
3736 022206 MEMCK: : 
375 
3758 022 SAVREG sSAVE THE REGISTERS 
3759 022212 005037 003126 CLR NXMFLG ;CLEAR THE FLAG 
3760 022216 005037 003130 CLR NXMLO sCLEAR THE TEST ADDRESS LO 
3761 022222 005037 003132 CLR NXMHI sCLEAR THE TEST ADDRESS HI 
3762 022 005737 003136 TST 7238 :I1S IT A 11/238? 
3763 022232 901407 BEQ is 3NO 
3764 022234 023727 002120 007777 CMP L$HIME , ©7777 ; GREATER THAN 128K 
3765 022242 10 BLO 28 
3766 02 004737 022362 JSR PC .NXMTST s SETUP THE ss 
3767 022250 BR 13% ;SET THE FLAG AND EXIT 
3768 022252 005737 003134 1s: TST T23A ‘is IT A 11/23A? 
3769 022256 001413 BEQ as 
3770 022260 023727 002120 005777 2%: CMP LSHIME , ©5777 ;GREATER THAN 96K 
3771 02 101 BHI 14% sYES,23A/238 WITH 126K MEMORY 
3772 022270 C23727 002120 003777 CMP L SHINE, 03777 ;GREATER THAN 64K BUT LESS THAN 92K? 
3773 0222 10 BLO CHECK 24 
3774 022 004737 022362 JSR pe, NXMTST ;SETUP THE 
3775 022304 000411 BR 133 ;SET THE FLAG AND EXIT 
3776 O22 023727 002120 001577 4%: CMP L $HIME , @1577 GREATER THAN 24K BUT LESS THAN 64K? 
3777 022314 103410 BLO 148 TELL THEM AND EXIT WITH FLAG CLEAR 
3778 022316 004737 022362 JSR PC,NXMTST Setup HE ADDRESS 
3779 022 062737 77 003132 ADD 077 ,NXMHI +e EOL He 11/02 € 11703 
37 2330 005237 003126 13%: INC NXMFLG ;SET THE FLAG 
3781 022334 000411 BR 15$ ;EXIT 
3782 022336 000410 148: BR 15% ;NOP FOR PRINTOUT 
3783 022340 PRINTF @NOMEM TELL THEM & EXIT #¢eNO PRINTesase 
022340 012746 005456 MOV @NOMEM, -( SP) 
022344 012746 000001 MOV #1, -(SP) 
022350 01 MOV SP. RO 
022352 104417 TRAP CSPNTF 
022354 062706 000004 DD 04, 
3784 022 000207 15%: RTS PC ; RETURN 
3786 
3¢ 
$787 : SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
3 
3789 ; OUTPUTS : NXMLO, NXMHI ;SETUP WITH NXM ADDRESS 
; 
3133 
3793 022362 013701 002120 NXMTST: MOV LSHIME RL :GET TOP OF MEMORY 
3794 022366 062701 000200 ADD 6200,R1 ;MAKE IT I/O BLOCK OR OTHER NXM 
3795 022372 042701 000177 BIC @177.R1 
3796 022376 010102 MOV R1,R2 ;RESAVE RESULTS 
3797 REPT 6 
3798 ASL Ri ;PUT IN PLACE FOR XFER 
3799 .ENDOR 
3800 022414 010137 003130 MOV R1,NXMLO ;SAVE TEST ADDRESS LOW 
3801 000012 .REPT 10. 
$802 ASR R2 ;PUT IN PLACE FOR XFER 
3804 022444 042702 177700 BIC #177700,R2 ;D0N‘T WANT ILA 
3805 022450 010237 003132 MOV R2,NXMHI ;SAVE TEST ADDRESS HIGH 


a SS SR <culeiieieneenindal 
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ee iSr PROTECTION TABLE 


8 
PROT: : 


2456 
3831 022456 177777 177777 «#+177777 “i, -1. -1. -1 s;NO DEVICE PROTECTION REQUIRED. 


. WORD 
3832 022466 ENDPROT 


SEQ 0096 
_KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
| $3806 022454 000207 RTS PC ; RETURN 
' 
| 3808 022456 ENDMOD 
3817 -TITLE TSV4 - MISCELLANEOUS SECTIONS 
3819 022456 BGNMOD TSV4 i 
022456 TSV4:: 
3820 
3826 
3827 
3828 
3829 
j 








_ TSV4 - MISCELLANEOUS SECTIONS MACRO YOS.02 Monday 16-Sep-85 13:41 Page 74 


| SEQ 0097 
INITIALIZE SECTION 
| 3834 -SBTTL INITIALIZE SECTION 
a 
' 
3837 } THE INITIALIZE SECTION Conta ps THE CODING THAT IS PERFORMED 
| +34 - THE BEGINNING OF EACH PASS. 
3840 VIF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
3841 sIF “CONTINUE”, NOTHING IS REQUIRED. 
3842 ’ 
3643 3-- 
3844 3¢ 
3845 sINSERT TEMPORARY JUMP TO ODT 
BAaAG i> 
3847 022466 SGNINIT 
022466 LSINIT:: 
466 005037 002216 408: CLR EXTFEA 
3849 022472 005037 003126 CLR NXMFLG 
3850 022476 012737 006356 002170 MOV #EPRT1,EPRTSW ;SET UP PRIMARY MESSAGE FOR REPLACEMENT 
3851 022504 COS5037 003144 CLR SIFLAG ;CLEAR “SOFT INIT” FLAG 
3852 022510 005037 003124 CLR KTENABLE ;CLEAR TEST ABOVE 28K FLAG 
3853 022514 005037 002272 CLR RAMSIZ ;CLEAR RAM SIZE FOR RAMERR ROUTINE 
38654 022520 READEF #€F .CONTINUE 
022520 012700 000036 MOV @E€F . CONTINUE ,RO 
022524 104447 TRAP CSREFG 
3855 022526 BNCOMPLETE 1$% 
022526 103023 Bcc 1$ 
S6 022530 023737 002172 002012 CMP UNITN,LSUNIT ;UNIT IN RANGE? 
3857 022536 103070 BHIS 4$ ;6R IF NO. 
3858 022540 005737 003102 TST DUFLG sDROPPED UNIT? 
3859 022544 100472 BMI NXTU ;8R IF YES 
3860 022546 013701 002172 MOV UNITN,R1 
3861 022552 006301 ASL R1 
022554 005761 003166 TST ERTABLC(R1) 
3863 022560 001516 BEQ TU 
022 032761 040000 003166 BIT @81T14,ERTABL(R1) ;DROPPED? 
3865 022570 001060 BNE NXTU 
3866 022572 EXIT INIT :D0 NOTHING IF “CONTINUE”. 
022572 104432 TRAP CsEXxIT 
022574 000416 -WORD L10030-. 
3867 022576 1$: READEF #€F .NEW 
022576 012700 000035 MOV @EF .NEW,RO 
022602 104447 TRAP CSREFG 
3868 022604 BNCOMPLETE NXTU ;TAKE NEXT UNIT IF NOT NEW PASS. 
022604 103052 BCC NXTU 
38669 022606 READEF #€F .START 
022606 012700 000040 MOV @EF .START,RO 
022612 104447 TRAP CSREFG 
3870 022614 BCOMPLETE 2$ 
022614 103404 BCS es 
3871 022616 READEF #€F .RESTART 
022616 012700 000037 MOV @€F .RESTART,RO 
022622 104447 TRAP CSREFG 
3872 022624 BNCOMPLETE 31% 
022624 103031 BCC 31$ 
3873 022626 2s: 31ST PASS, BUS-INIT. 
3874 022626 BRESET ;BUS RESET. 
022626 104433 TRAP C$RESET 





| TSV4 - MISCELLANEOUS SECTIONS 


MACRO YOS.02 Monday 16-Sep-85 13:41 Page 74-1 
ch scimne ps SEQ 0098 
| INITIALIZE SECTION 
3875 022630 005037 002204 CLR TSTCNT ;NUMBER OF TESTS RUN IN PASS : 
3876 022634 005037 002212 CLR FATFLG CLEAR FATAL ERROR COUNT 
3877 02 005037 003134 CLR T23A }CLEAR 11/23A FLAG 
3878 022644 005037 003136 CLR T2 }CLEAR 11/238 FLAG | 
3879 ; MOV €340, -(SP) 
3880 : MOV 6208. -(SP) RETURN TO DEBUGGER 
3681 : JMP 0.00t R THE DEBUGGER | 
005037 003370 CLR SKIPT }CLEAR THE SUBTEST “SKIPPER” 
3888 022654 208: 
3884 022654 012737 177777 002174 Mov @-1,QvP QUICK VERIFY... 
3885 022662 004737 020720 JSR PC. ENVIRN SET ENVIRONMENT. 
004737 021100 JSR PC/KTINIT SINITIALIZE KT MEMORY MANAGEMENT 
3887 022672 012700 003166 MOV @ERTABL, 
0050 30$: CLR (RO)s }CLEAR THE ERROR TABLE 
3889 022700 003366 CHP RO, @ERTABE 
3890 022704 103774 BLO 308 
3891 0227 BR as 
3892 022710 005037 002174 31$: CLR ave 
3893 022714 C00137 022764 HP PASRPT GO REPORT THE STATUS 
3895 0227 oe 
96 022720 012737 177777 002172 NEWPAS: MOV @-1,UNITN ;INIT UNIT NUMBER 
3897 022726 005037 002210 CLR DEVENT }CLEAR COUNT OF DEVICES RUNNING 
98 0227 NXTU: BREAK 
022732 104422 TRAP‘ C$BRK 
3899 022734 005237 002172 INC UNITN ;...AND SET NEXT UNIT NUMBER. 
3900 022740 023737 002172 002012 CHP UNITN, LSUNIT 
3901 0227 0342 BLO SETU 
3902 022 012737 177777 003102 HOV @-1,0UFLG 
3903 0227 01 BR 118 
3904 022760 DOCLN ;ABORT, NO MORE UNITS. 
022760 1 TRAP C$DCLN 
3905 022762 000240 118: NOP 
022764 PASRPT: 
3907 022764 023727 002012 000001 cmp LSUNIT, 01 ;HOW MANY UNITS SELECTED? 
3908 022772 101752 BLOS = NEWPAS ‘BR IF : 
909 022774 005737 002210 TST DEVCNT }ARE ANY STILL RUNNING? 
3910 02 001747 BEQ NEWPAS ‘BR IF NO 
3911 023002 RFLAGS RO 
023002 1044 TRAP C$RFLA 
3912 02 032700 000100 BIT @ISR,RO ;SHOULD WE PRINT STATISTICS 
3913 025010 001343 BNE uPA iBR IF NO 
3915 023012 T 
023012 104424 TRAP —- C$DRPT 
3916 023014 000741 R NEWPAS 
3917 023016 108: 
3919 023016 SETU: GPHARD UNITN,RO ;GET UNIT N P-TABLE POINTER. 
023016 013700 002172 MOV UNITN. RO 
023022 104442 TRAP —_C$GPHRD 
3920 023024 BNCOMPLETE NXTU ;8R IF UNIT NOT AVAILABLE. 
023024 103342 BCC NXTU 
3921 023026 005037 003102 CLR OUFLG :CLEAR “DROPPED” FLAG. 
3922 023032 005237 002210 INC DEVCNT 
3923 02 012001 MOV (RO)+, RL ;GET 1ST REGISTER ADDRESS. 
3924 023040 010137 002176 MOV R1,CSRADDR ;ADDRESS OF REGISTERS OF UNIT UNDER TEST 
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| SEQ 0099 
INITIALIZE SECTION 
3925 
3926 023044 012001 MOV (RO)+,R1 GET VECTOR ADDRESS. 
3927 sMOV. =—s- CRO) ,R2 ;GET INTERRUPT PRIORITY 
3928 sMOV —s- R2, IPRT SET INTERRUPT PRIORITY 
3929 023046 010137 002200 MOV R1,IVEC :SET INTERRUPT VECTOR POINTER. . 
3930 023052 012721 016306 MOV @INTR, (R1)+ 3... VECTOR. . 
3931 023056 013721 002202 MOV IPRI,(R1)+ +... AND PRIORITY. 
3933 023062 1s: 
3934 ; TST ave :1ST PASS 2? 
3935 , BEQ 5% ;NO, SKIP THE PASS 1 STUFF. 
3939 
3938 11ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
3939 ;THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 
940 : 
3941 023062 013701 002172 MOV UNITN, RL 
3942 023066 006301 ASL 
3943 023070 C52761 100000 003166 BIS @B81T15,ERTABL(R1) sSAY DEVICE RUNNING 
3944 023076 005037 005770 CLR EXTA ;CLEAR ERROR EXTENSION FLAG. 
3945 023102 023727 002012 000001 CNP LSUNIT, #1 ;ARE WE TESTING MULTIPLE UNITS? 
3946 023110 101416 BLOS 10% 3BR I 
3947 023112 RFLAGS RO ;YES -- GE? OPERATOR FLAGS. 
023112 104421 TRAP  C$RFLA 
3948 023114 032700 001000 BIT @PNT RO ;SHOULD WE PRINT UNIT 0? 
3949 023120 001412 BEQ 10% ;BR IF NOT. 
3950 023122 PRINTF #PUNIT,UNITN ;PRINT THE UNIT @ 
023122 013746 002172 MOV UNITN, -(SP) 
126 012746 023214 MOV -(SP) 
132 012746 MOV @2,-(SP 
023136 01 MOV 
140 104417 TRAP CSPNTF 
023142 706 000006 SP 
3951 023146 10%: 
3952 023146 005037 003104 CLR NODEV 
953 023152 013701 002176 MOV CSRADOR,R1 sADORESS OF FIRST REGISTER 
3954 023156 010102 MOV R1,R2 ;START OF REGISTERS 
3955 023160 062702 000002 ADD @TSSR,R2 ;ADDRESS OF TSSR REGISTER 
3956 023164 004737 016466 JSR PC, XNXM TES? BOTH CONTROLLER REGISTERS... 
3957 023170 103005 BCC 23 BR IF ALL OK. 
3958 023172 010137 003104 MOV R1,NODEV iFLAG DEVICE AS NON-EXISTENT 
3959 023176 012737 177777 003102 MOV 6-1, DUFLG ;DROP THIS UNIT 
3960 023204 2%: 
oy 
$962 ;FINALLY, SET CPU PRIORITY AND WE'RE DONE. 
3 
3964 023204 5$: SETPRI #PRTOO ;ENABLE INTERRUPTS. 
023204 012700 0v0000 MOV @PRIOO,R 
023210 104441 TRAP —_ C$SPRI 
3965 023212 ENDINIT 
023212 L10030: 
023212 104411 TRAP C$INIT 


3966 
4394 023214 045 116 045 PUNIT: peess /SNSENSAseeee TESTING UNIT SD28A eee00/ 
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SEQ 0100 
_ ADD AND DROP UNITS SECTIONS 
| 3370 .SBTTL ADD AND DROP UNITS SECTIONS 
3972 soe t 
3973 ; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
3974 ; TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME | 
3375 : OR (8) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
gee 
3977 023262 BGNAU 
023262 LSAU:: 
3978 023262 010001 MOV RO,R1 : GET UNIT TO BE ADDED (RO) 
3979 023264 006301 ASL R1 ; MAKE IT A WORD INDEX 
3980 023266 052761 100000 003166 BIS #100000, ERTABL(R1) ; Set THE “ACTIVE” BIT 
3981 023274 042761 040000 003166 BIC #40000 ,ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
3982 023302 PRINTF #18, 
023302 010046 MOV 0,-(SP) 
023304 012746 023330 MOV 618, -(SP) 
023310 012746 000002 MOV @2,-(SP) 
3314 01 
023316 104417 TRAP CSPNTF 
3 062706 000006 ADD #6 ,SP 
3983 023 EXIT AU 
023324 000167 -WORD JSJMP 
023326 000026 "WORD 110031-2-. 
3984 023330 045 116 045 18: "ASCIZ /SNSA UNIT SDSA ADDED/ 
3985 “EVEN 
3986 
3987 023356 ENDAU ; UNUSED. 
023356 L10031: 
ot 023356 104452 TRAP C$AU 
toe 
3989 ; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
$990 ; TO BE REMOVED FROM THE TEST LIST. 
a 
3992 ; SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
3993 ; “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
3994 ; COMMAND OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
3995 ; WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
3996 ; WHICH ARE STILL ACTIVE. 
$397 ; UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 
3999 023360 BGNDU 
023360 L$DU:: 
4000 023360 012737 177777 003102 MOV @-1,DUFLG 
4001 023366 010001 MOV RO,R1 
4002 023370 006301 ASL R1 
4003 023372 052761 140000 0u3166 BIS #140000, ERTABL(R1) ; SAY DROPPED 
4004 023400 000240 000240 000240 240,240,240 3 222272222? 
4005 023406 PRINTF '€1$,RO 
023406 010046 MOV RO, -(SP) 
023410 012746 023434 MOV 61%, -(SP) 
023414 012746 000002 MOV @2,-(SP) 
023420 01 
023422 104417 TRAP CSPNTF 


023424 062706 000006 ADD lal 
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4007 023434 
4008 


045 


104453 








116 


002116 
177772 
177756 


017272 


SEQ 0101 
045 18: -ASCIZ /SNSA UNIT SDA DROPPED/ 
ENDDU 
L10032: 
TRAP C#DU 
3¢¢ 
} AUTO-DROP CODE SECTION. 
gee 
BGNAUTO 
LSAUTO:: 
MOV CSRADOR RS sPOINT TO DEVICE REGISTER 
MOV 6360. .R3 TIME FOR 2400' REEL TO REWIND 
108: JSR PC ,WALTF ;WAIT FOR SSR TO SET 
Bcs 20% ;LEAVE WHEN SSR IS SE 
DELAY 250. ;WAIT FOR .25 SECONDS 
MOV #250. .(PC)+ 
. WORD 
MOV LSOLY,(PC)+ 
. WORD 
bEC -6(PC) 
BNE + 
DEC -22(PC) 
BNE 80 
DEC R3 ;BUMP COUNTER DOWN 
BNE 10% ;KEEP GOING 
es JSR PC, CKDROP ;TRY AND DROP UNIT 
ENDAUTO ; UNUSED. 
L10033: 


TRAP CS#AUTO 


a 
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SEQ 0102 
CLEAN-UP AND REPORT CODING SECTIONS 
| 
| 4025 .SBTTL CLEAN-UP AND REPORT CODING SECTIONS 
sos : 
ey 
4028 THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
| 4029 ; EXECUTED AT THE END OF EACH PASS COR SUB -PASS). 
4030 ; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 
t-- 
4032 023546 BGNCLN 
023546 LSCLEAN:: 
4033 023546 013705 002176 MOV CSRADOR,RS POINT | TO DEVICE REGISTER 
4034 023552 005737 003102 TST DUFLG “DROPPED” FLAG IS SET 
4035 023556 100405 BMI 18 +. . AND Gross CONTROLLER FAULT. 
4036 :...00N'T TRY TO XCT CLEANUP CODE. 
4038 023560 012765 000000 000002 MOV 00, TSSRCRS) ;00 SOFT INIT 
4039 023566 004737 -016340 JSR PC. WAITF 
4040 023572 18: 
4041 023572 28: ENDCLN 
023572 L10034: 
oes 023572 104412 TRAP  CSCLEAN 
t 
4043 | THE REPORT CODING SECTION CONTAINS THE 
4044 ; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
gee 
4046 023574 BGNRPT 
023574 LSRPT:: 
4047 023574 PRINTS @DEVSUM 
023574 012746 024036 MOV @DEVSUM, -( SP) 
023600 012746 000001 MOV $1, -¢SP) 
023604 010600 v 
3606 104416 TRAP CSPNTS 
023610 706 000004 
4048 023614 010246 MOV R2. -(SP) 
4049 023616 010346 MOV R3,-(SP 
4050 02 10446 MOV R4.-(SP) 
4051 023622 012704 003166 MOV GERTABL RO ; GET START OF ERROR TABLE. 
4052 023626 005003 CLR R3 ; CLEAR UNIT 
4053 023630 011402 18: MOV (R4),R2 ; GET ERROR TABLE ENTRY € TEST IT. 
4054 023632 001467 BEQ 43 ; ZERO IF UNIT NOT RUN 
4055 023634 100066 BPL 4s 
4056 023636 032702 040000 BIT @B81T14,R2 ; WAS UNIT DROPPED? 
4057 023642 001015 BNE 28 ; BR IF YES 
4058 023644 702 170000 BIC $tC7777,R2 ; GET ERROR COUNT FIELD 
4059 023650 PRINTS @DEVONL.R3,R2 ; PRINT 
023650 010246 MOV R2,-(SP) 
023652 010346 MOV -(SP) 
023654 012746 024073 MOV o0€ -(SP) 
3660 012746 MOV #3, -(SP) 
023664 010600 MOV 
3666 104415 TRAP CSPNTS 
023670 062706 000010 ADD 610,SP 
4060 023674 000446 BR as 
4061 023676 020227 160000 28: CMP R2, #160000 ; WAS UNIT NON-EXISTENT? 
4062 023702 001012 BNE : BR IF NO 
4063 023704 PRINTS @DEVNXR,RS 
023704 010346 MOV 3,-(SP) 
023706 012746 024143 MOV @DEVNXR, -(SP) 
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| SEQ 0103 
CLEAN-UP AND REPORT CODING SECTIONS 
023712 012746 000002 MOV @2.-(SP) 
023716 010600 MOV SP .RO 
3720 104416 TRAP CSPNTS 
023722 062706 000006 ADO #6 ,SP 
4064 023726 000431 BR ag 
4065 023730 020227 160001 3: CMP R2, #160001 ; WAS UNIT NOT READY AT STARTUP? 
4066 023734 001012 BNE 308 ; BR IF NO. 
4067 023736 PRINTS @DEVNRO,RS 
023736 010346 MOV R3, -(SP) 
023740 012746 024225 MOV @DEVNAD, -(SP) 
023744 012746 MOV #2, -(SP3 
3750 01 MOV SP .RO 
023752 104416 TRAP CSPNTS 
023754 062706 000006 ADO $6 ,.SP 
4068 023760 000414 BR as 
023762 042702 170000 30%: IC @*C7777,R2 
4070 023766 PRINTS VORO.R3,R2 
023766 010246 MOV R2, -(SP) 
023770 ©10346 MOV R3. -(SP) 
023772 012746 024306 MOV @DEVORO, -( SP) 
023776 012746 000003 MOV #3, -(SP) 
024002 (10600 v 
024004 104416 TRAP CSPNTS 
024006 062706 000010 ADO $10, SP 
024012 062704 000002 4s: ADD #2,R4 
4072 024016 3 INC R3 
024020 020427 003366 CHP R4, @ERTABE 
4074 024024 103701 6LO 18 
024026 012604 V (SP)+,R4 
4076 024030 012603 MOV (SP)+.R3 
4077 024032 012602 (SP)+.R2 
4078 024034 ENORPT ' SED 
024034 L10035: 
024034 104425 TRAP C&RPT 
0240 045 116 045 DEVSUM: .ASCIZ /aNSADEVICE STATUS SUMMARY :sN/ 
4081 024073 045 101 040 DEVONL: .ASCIZ UNIT SD3SA ONLINE, ERRORS = SDsN/ 
4082 024143 045 101 040 DEVNXR: .ASCIZ pov UNIT SD38A DROPPED, NON-EXISTENT REGISTERSN/ 
3 024225 045 101 040 DEVNRO: .ASCIZ /SA UNIT SD3SA DROPPED, NOT READY AT STARTUPSN/ 
306 045 101 040 DEVORO: -ASCEZ /$A UNIT SD38A DROPPED. ERRORS = sDsiN/ 
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SEQ 0104 
CLEAN-UP AND REPORT CODING SECTIONS 
TITLE TSV7 - HARDWARE TESTS 1-8 
4100 
4101 024356 BGNMOD TSV7 
024356 TSV7:: 
4107 
4115 
4116 .SBTTL TEST 1: INITIALIZE #4 TEST 
site . 
4119 I THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
4120 }CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
4121 1€1.€. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF 
4ice sEXTENDED FEATURES SWITCH, ETC. 
5 
4124 . 
4125 024356 . BGNTST 
024356 Ti:: 
4126 024356 ¢12737 006356 002170 MOV —s-: @EPRT1, EPRTSW }SET UP PRIMARY ERROR MESSAGE 
size ry 
ai80 iTEST 1 
4131 3 
4132 3 
aiss - 
4139 024364 004737 016274 JSR —s- PC, DSBINT ;OISABLE INTERRUPTS 
4140 024370 012700 025314 MOV 0 s« @TST21ID,RO ASCII MESSAGE TO IDENTIFY TEST 
4141 024374 004737 016600 JSR -—s- PC, TSTSETUP {00 INITIAL TEST SETUP 
4142 024400 012737 000005 002206 MOV —s-«@5, LOOPCCNT PERFORM S ITERATIONS 
4143 024406 T21L00°: 
4144 024406 004737 025336 JSR -—s- PC, T21REST SET COMMAND PACKET 
4145 026412 006787 025426 SSR —«s- PC T2ART2 iSET UP OTHER COMMAND PACKET 
Site FY REAAARGSRAGAREAKSOEHALOASASKSEHALaABHEARASCHREHEARAGHOSSSSSEROAKESEHSASCEGBE 
4149 TISSUE CONTROLLER “SOFT INITIALIZE - CARRY BIT CLEAR IF ERROR 
Stas : SEORBSESEKATGESSSHSSESEHRKBADSAHESSTEELAOREHEHSSH ’ AGEHSSHACSALESHSSLESSEAS 
4153 024416 012737 176750 024772 MOV @6S000. , T21DLY :SET DELAY ROUTINE 
4154 024426 008737 016064 118: JSR PC, SOFINIT D0 INITIALIZE ON CONTROLLER 
Py 103426 acs —ss208 :8R IF INIT WAS 
4156 DELAY 250 DELAY FOR A REWIND TO FINISH 
012727 000250 mov €250,(PC)« 
ooocce “WORD 0 
013727 ov2116 OV ss L SOL, (PC)- 
924444 900000 WORD «6 
7 177772 wid ~6(PC) 
926452 001373 exe a 
177756 DEC 222¢PC) 
$8387 028 eure nn ee 
at $oi3s6 _ one Ht OT IS MORE Tame TO GO 
Sie osa470 908237 02212 Inc  - FATFLG {OUP COUNT 
4163 024474 010001 MOV = s«RO, RA iCONTENTS OF TSSR REGISTER 





— 
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so 
012124 
012704 


013737 


104406 
112737 


TEST 1: INITIALIZE #4 TEST 


024750 


002172 
010752 


002212 


000200 
000010 
025060 
000000 
016426 


002212 


000000 
016340 
000002 
176377 
0v2200 
000100 


002212 
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024770 


025070 
025071 


208: 


ERROF 


MOV 





ERRNO, SFIERR, SFIMSG 


@T21PACKET ,R4 


SEQ 0105 


sFATAL ERROR TSSR WAS NOT OK 
TRAP 
-WORD 101 
-WORD SFIERR 
«WORD SFIMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 


{PRAASARERESEEEEEEESEESERESEEOEESEREREDSRESEEESESEEEESEESEEDEEEOEES 
iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


i 
{ PRAOERAAHAAASEAESESESSSASSHESSSEEEESESSEEESSEESESSESSESSSSSESEESESEEEE 


23%: 


258: 


308: 


35%: 


UNITN, T210SW 
PC,WRTCHR 
233 

FATFLG 

RO,R1 

ERRNO, WRTMSG, SFIMSG 


#200,T218S0 
#10,T218S1 


@T21PK2,R4 

R4, TSDBCRS) 

PC CHKTSSR 

RO,R1 

FATFLG 

ERRNO, T21SSR,PKTSSR 


00, TSSRCRS) 
PC WAITF 
TSSRCRS), RL 
BER ATADDR> .R2 
@SSR!NBA,R2 
OOFL RI 

388 

R1,R2 

373 


FATFLG 
ERRNO, T21AM3,EXPREC 


SET UP DRIVE NUMBER 
s ISSUE WRITE CHARACTERISTICS 
s6R, IF — ISSUED OK 


sBUMP COUN 
i SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC “> 


CSERHRD 
-WORD 102 
- WORD TMSG 
-WORD SFIMSG 
TRAP CsCLP1 


sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT 


;WRITE SUBSYS MEM PACKET 
;ISSUE COMMAND 
sWATT | FOR SSR 
NO ERROR 
teRROR. SAVE TSSR 
;BUMP COUNT 
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP  CSERHRD 


-WORD 103 

-WORD T2iSSR 

-WORD  PKTSSR 
:SCOPE LOOP 

TRAP CscLP1 


sISSUE A SOFT INITIALIZE 
sWAIT FOR JUST i. SSR BIT TO SET 


REGISTER 
sCLEAR OUT OTHER BIT 
F DRIVE 2 OFF 
EXPECTED (R2) = RECETVED C(R1) 
:8R. my ARE EQUAL (0K 
;"ERROR TRYING TO INIT AFTER WRITE MISC. 
TRAP CSERHRD 


-WORD 104 
«WORD T21AMS 


ae ee ed 
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024674 015564 
4213 024676 
024676 


B88 
& 
~ 
w 


024 
4220 024712 004737 017272 
4221 024716 000241 
4222 024720 106937 025071 


024726 
024726 104406 
4225 024730 004737 016546 
4226 024734 103002 
4227 024736 C00137 024406 
4228 024742 
024742 104432 
024744 
4229 
4230 
4231 
4232 
4234 024746 
4236 024750 
4237 024750 
4238 024752 024760 
4239 024754 
4240 024756 000012 
4241 024760 
4242 024760 024774 
4243 024762 000000 
024764 000024 
4245 024766 000000 
4246 024770 000000 
4247 024772 000000 
4248 024774 
4249 
4250 
4251 
4253 025056 
4255 025060 
4256 025060 100206 
4257 025062 025070 
025064 000000 
4259 025066 000006 
1 
4262 025070 
4263 025070 000 
4264 025071 000 
4265 025072 000000 
coe 025074 000000 
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378%: CKLOOP 
BR 408 


38%: 
ERRDF ERRNO, T210FL ,EXPREC 
JSR PC ,CKDROP 
408: cLCc 
RORB T218S1 
BNE 25% 
508% CKLOOP 
JSR PC, TSTLOOP 
Bcc 63% 
JMP T21L00P 
638: ExIT TsT 


° 
;LOCAL STORAGE FOR THIS TEST 
i- 


-BLKB 10-<.-TSV2E7> 
T21PACKET: 

-WORD 100004 

-WORD T21DATA 

-WORD O 

-WORD 10. 
T21DATA: 

-WORD T21BFR 

-WORD O 

-WORD 20. 

-WORD O 
T210Su: -WORD O 
T210LY: .WwORD O 
T2iBFR: -BLKW 25. 


i WRITE SUBSYSTEM MEMORY COMMAND PACKET 
4 ‘BLKB © 10-«. -TSV2E7> 


T21PK2: 
. WORD 100206 
-WORD T216F2 
-WwORDB O 
-WORD 6. 
EVEN 
T216F 2: 
T218SO: .BYTE O 
T218S1: .BYTE Oo 
T21S2: ° 
T2183: WORD O 





SEQ 0106 


-WORD EXPREC 


sLOOP IF SELECTED 
CsCcLP1 


RAP 
SKIP OVER OFF-LINE STUFF 


sORIVE IS OFF LINE 
TRAP CSEROF 
WORD os 


. 1 
-WORD T210FL 
-WORD EXPREC 

sTRY AND DROP UNIT 

sDON’T LET CARRY 

TRY NEXT “LOWEST” BIT POSITION 

sLOOP yt ALL EIGHT BITS TESTED 


iSC 

, TRAP —- CSCLP1 
00 WE NEED TO ITERATE TEST 

iBR, IF NO LOOP REQUTRED 


F 
sEXECUTE AGAIN 
s;ALL DONE THIS TEST 
TRAP CsExIT 
-WORD 110036-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH, ACK 
sADORESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sORIVE SELECT WORD 
;DELAY COUNTER 
sMESSAGE BUFFER 


;WRITE SUB SYS MEM COMMAND, IE AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sBSELO AREA --- “COMMAND” BYTE 
sBSEL1 AREA 
sSEL 2 AREA 
sDATA AREA 


TTT TL A —— + 
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4269 
4270 
4271 
pr Hh | 
4273 025076 127 
4274 025173 124 
4275 025275 104 
4276 025314 111 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 025336 
4286 025336 
4267 025342 012701 
4288 025346 012721 
4289 025352 012721 
290 025356 
1 025 012721 
025 012721 
4293 025370 
4294 025372 012721 
4295 025376 1 
025400 11 
4297 025402 012702 
025406 012762 


024750 
100004 
024760 
000010 
024774 


000024 


000020 
177777 
000000 
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024774 


SEQ 0107 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 
g° 


T21SSR: .ASCIZ ‘WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’ 
T21AM3: .ASCIZ ‘TSSR Init. Feiled After WRITE MISCELLANEOUS CONRTOL/READ STATUS’ 
T210FL: .ASCIZ "Geive is OFFLINE’ 

TST21ID: even ASCIZ ‘Initialization 64' 


3¢ 


; ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 

; 

ge 


T21REST: 
SAVREG sSAVE THE OeGISTERs 
MOV @T21PACKET,R1 sSTART OF THE PACKET 
MOV #100004 ,(R1)+ ;WRITE SUBSYSTEM MEM. WITH ACK, 
MOV @T21DATA,(R1)> sADORESS OF CHARAISTICS DATA BLOCK 
CLR (R1i)« }EXTENDED ADDRES 
MOV 6.,CR1)+ ;SIZE OF DATA BLOCK IN BYTES 
roe! Okt alata sADDRESS OF MESSAGE BUFFER 
* 
MOV #20. ,CR1)+ :LENGTH OF MESSAGE BUFFER 
CLR (R1)« 
CLR (R1) 
MOV #20 ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
64%: MOV #177777, T21BFRCR2) ;ALL ONES TO MESSAGE BUFFER 
TST -(R2) NEXT LOCATION 
CMP R2,00 ;CHECK R2 FOR ZERO 
BNE 64% BR IF NOT AT eERO YET 
RTS PC RETURN 
T21RT2: 
SAVREG ;SAVE THE REGISTERS 
MOV @T21PK2,R1 sSTART OF THE PACKET 
MOV #100206, (R1)+ ;WRITE suasvsten MEM. WITH ACK, IE 
MOV @T21BF2,(R1)-+ sADDRESS OF DATA BLOCK 
CLR (R1i)+ EXTENDED ADDRESS 
ror! 28; .6RE3e ;SIZE OF DATA BLOCK IN BYTES 
+ 
MOV #T216F2,R1 sADDRESS OF DATA FOR WRT SUB SYS MEM 
CLR (R1)-« 
CLR (R1) 
RTS PC ;RETURN 
ENOTST 
L10036: 


TRAP CsETSsT 
-SBTTL TEST 2: OFF-LINE AND REJECT REWIND 


3¢ 


; THIS TEST VERIFIES BASIC TAPE-MOTION COMMAND DECODING AND BASIC 


—— 
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TEST 2: OFF-LINE AND REJECT REWIND 


4333 025472 012737 006356 002170 
4336 025500 004737 016274 
4339 025504 012700 027757 


a 025510 004737 016600 
4341 025514 012737 000005 002206 


0440 
4357 025524 004737 030012 
4358 025530 004737 030104 


4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 025534 004737 016064 
4367 025540 103407 

4368 025542 005237 002212 
4372 025 010001 


025 003650 
025556 012124 
025560 

4375 02556¢ 012704 027040 


= 





SEQ 0108 


s OPERATION of THE REWIND POSITIONING COMMAND. IT DOES NOT 
sNECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN 
sARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 

i CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST 

i TYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 
sSEQUENCES. THE TEST CONSISTS OF THE FOLLOWING THREE SUBTESTS 

’ 

; 

3° 


T2:: 
MOV @EPRT1,EPRTSW :SET UP PRIMARY ERROR MESSAGE 
JSR PC ,OSBINT ;DISABLE INTERRUPTS 
MOV @TST221D RO ;ASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
MOV #5 ,LOOPCNT ;PERFORM S ITERATIONS 


3° 
:TEST 2. SUBTEST 1 


iVERIFIES THAT ALL TAPE-MOTION COMMANDS (WITH VALID 
CODES? | TERMINATE WITH FUNCTION REJECT AND 

‘OFF-LINE STATUS WHEN THE TAPE TRANSPORT IS OFF-LINE. 
;THE SUBTEST OPERATES BY PLACING THE CONTROLLER INTO 
sEXTENDED MODE, SELECTING _ UNIT 7 AND ISSUING EACH 
;TAPE-MOTION C AFTER EACH COMMAND, 
;THAT FUNCTION REJECT CORMINATION WAS ACCOMPLISHED: 
ge 


T22LO0P : 
BGNSUB 3>>>>>>>>>>>> Xie >>>>>>>>>>>> 
s*"* TRAP —«C#BSUB 
JSR PC, T22REST SET COMMAND PACKET 
JSR PC, T22RT2]) iSET UP OTHER COMMAND PACKET 


| POROOOESEEEEEEEESERESSSEESEERESEAADESEEEESERESESEEESEEEEESEEESESEE 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
J PRAAHASSHHSSSSSESHSSSESEHSSASSESASSSESSSSSASSHSSESSSSESEESESESASSSEEEE 


JSR PC, SOF INIT :00 INITIALIZE ON CONTROLLER 

Bcs 208 BR IF INIT WAS OK 

INC FATFLG s;BUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF  ERRNO,SFIERR,SFIMSG iFA TAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 1 
-WORD SFIERR 

ane -WORD SFIMSG 
MOV @T22PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


FSCHSHASSASSHESSSSESSHSSSSSSSSSSSHSSSEKESSHSSSASSESHESSSSSESSESEESE 


tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


—— 
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SEQ 0109 
TEST 2: OFF-LINE AND REJECT REWIND 
| 
} 3 
j 4381 {PORARAREREEEESEEAEEEEEEEEEEEEEEEEEEEEESEEEEESESEEESEEEESESEEEEEEEEE 
| 4382 t 
4383 025564 004737 010752 JSR PC ,.WRTCHR sISSUE WRITE CHARACTERISTICS 
| 4384 025570 103407 BcS 23% :B8R, IF COMMAND ISSUED OK | 
| 4385 025572 005237 002212 INC FATFLG 3BUMP COUNT 
4389 025576 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4390 025600 ERRHRD ERRNO,WRTMSG,SFIMSG iWRITE CHARACTERISTISC FAILED } 
025600 104456 TRAP CSERHRD 
025602 000312 . WORD 
02 005054 -WORD WRTMSG 
025606 012124 . WORD SF IMSG 
4391 025610 23%: CKLOOP 
025610 104406 TRAP CSCLP1 
4392 025612 013701 027070 MOV T22BFR+6,R1 ;PICK UP xXTSO 
4393 025616 032701 000004 BIT 04,R1 31S UNIT WRITE-LOCKED? 
4394 025622 001407 BEQ 243 3NO,PROCEED WITH TESTING 
4395 025624 005237 002212 INC FATFLG ; BUMP COUNT 
4399 0256350 ERRDF ERRNO, T22WLK , SFIMSG TAPE IS WRITE LOCKED 
025630 104455 RAP CSEROF 
025632 313 WORD 
025634 027672 WORD T22WLK 
025636 012124 WORD SF IMSG 
4400 025640 DOCLN 
025640 104444 TRAP CSOCLN 
4401 025642 24%: CKLOOP 
025642 104406 TRAP CsCLP1 
4402 025644 005737 002216 TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 
4403 025650 001041 BNE 50% :B8R IF SWITCH IS ON 
4404 025652 112737 000200 027161 MOVB #200, T22BS1 sWRITE MISCELLANEOUS CONT/READ STATUS 
4405 025660 112737 000010 027160 MOVB #10, T22BS0 sFUNCTION SELECTION tT CTURN ON EXTFEA HW SWITCH) 
4406 025666 012704 027150 MOV @T22PK2 ,R4 sWRITE SUBSYS MEM PACKE 
4407 025672 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 
4408 025676 004737 016426 JSR PC,CHKTSSR sWAIT FOR SSR 
4409 025702 103407 6cS 30$ ;6R. IF NO ERROR 
4410 025704 010001 MOV RO,R1 ;ERROR, SAVE TSSR 
4411 025706 005237 002212 INC FATFLG ;BUMP COUNT 
4415 025712 ERRHRD ERRNO, T22SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
025712 104456 TRAP CSERHRD 
025714 000314 -WORD 204 
025716 027200 . WORD T22SSR 
025720 012136 -WORD PKTSSR 
4416 025722 30%: CKLOOP ;LOOP IF SELECTED 
025722 104406 TRAP CSCLP1 
rete 025724 012704 027040 MOV @T22PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
rot S | PRORSEORESEEESEEEEESEEESEREEEESEEEEEEEEEEEEDEEEEEDEEEEEEEEESEDEEES 
84 3 
rer ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3 
anit {PRRAAEAEEEEEEEEEEEEEEEEEEEEEEEEEEDEEEREEEEEEDOEE8O4O00000400000088 
4425 025730 004737 010752 JSR PC,WRTCHR sISSUVE WRITE CHARACTERISTICS 
4426 025734 103407 Bcs 50$ :68R, IF COMMAND ISSUED OK 
4427 025736 005237 002212 INC FATFLG ;BUMP COUNT 
4431 025742 010001 MOV RO,R1 sSAVE CONTENTS OF T 


SSR 
4432 025744 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
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SEQ 0110 
| TEST 2: OFF-LINE AND REJECT REWIND 

025744 104456 TRAP CSERHRD | 
025746 000315 WORD 205 | 
025750 005054 .WORD WRTMSG ! 
025752 012124 -WORD SFIMSG 

4433 025754 ; 508: CKLOOP sSCOPE LOOP 
025754 104406 TRAP CSCLPi 

4434 025756 016501 000002 MOV TSSRCRS).R1 3GET TSSR CONTENTS 

4435 025762 032701 000100 BIT @OFL,R1 ;CHECK FOR THE OFFLINE BIT SET 

4436 025766 001006 BNE 60% 3;8R, IF OFFLINE (GOOD) 

4437 025770 005237 002212 INC FATFLG ;BUMP OUNT 

4441 025774 ERROF ERRNO, T220FL,SFIMSG i OFF LINE SHOULD HAVE BEEN SET (BAD) 
025774 104455 TRAP CSEROF 
025776 6 -WORD 206 

027375 -WORD T220FL 
012124 -WORD SFIMSG 

4442 026004 60$: CKLOOP ;LOOP IF SELECTED 
026004 104406 TRAP CSCLP1 

4443 026006 012703 027166 MOV @T22RD ,R3 sPOINTER FOR COMMANDS 

4444 026012 C11337 027150 65$: MOV CR3) T22PK2 ;TAPE MOTION COMMAND IN PLACE 

4445 026016 012704 027150 MOV @T22PK2,R4 3R4 = POINTER TO PACKET 

4446 026022 010465 000000 MOV R4,TSOBCRS) sISSUE C 

4447 004737 016340 JSR ° F sWAIT FOR SSR TO SET 

4448 026032 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

4449 026036 012702 100306 MOV @SSR!SC!OFL!BIT1!61T2, R2;SET UP EXPECTED 

4450 026042 020102 CMP R1,R2 sARE THEY EQUAL 

4451 026044 001406 BEQ 80$ iBR, IF OK ESP. FUNCTION REJECT 

4452 026046 005237 002212 INC FATFLG 38 OUNT 

4456 026052 ERRHRD ERRNO T22TM, EXPREC ;TSSR INCORRECT AFTER TAPE MOTION CMD 
026052 104456 TRAP CSERHRO 
026054 000317 . WORD 207 
026056 027450 .WORD T22TM 
026060 015564 - WORD EXPREC 

4457 026062 80$: CKLOOP ;LOOP IF SELECTED 
026062 104406 TRAP CSCLP1 

4458 026064 005723 TST CR3)¢ sPOINT TO NEXT COMMAND 

4459 026066 022713 177777 CMP #177777,CR3) ;END OF THE COMMANDS YET 

4460 026072 001401 BEQ 90% :0R, IF DONE 

4461 026074 000746 BR 65% sMORE COMMAND(S) TO GO 

4462 026076 90$: 

4463 026076 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
026076 L10040: 
026076 104403 TRAP CsESuB 

4464 026100 023727 002212 000017 CMP FATFLG,@15. sIS ERROR COUNT AT 25 

4465 026106 103402 BLO 999% ;B8R, IF LESS THAN 25 

4466 026110 004737 017272 JSR PC ,CKDROP i TRY TO DROP THE UNIT 

4467 026114 999%: 

4468 

9 3° 

4470 : 

ret weal 2. SUBTEST 2 

4473 i VERIFIES THAT A REWIND COMMAND, WITH THE CLEAR VOLUME 

4474 sCHECK (CVC) BIT oem. IS REJECTED IF THE VOLUME CHECK 

4475 3(VCK) FLAG IS SET 

4476 3 

4477 3 


4478 8° 
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TEST 2: OFF-LINE AND REJECT REWIND 


4479 026114 
026114 
026114 


00 
012124 
012704 


001041 


112737 


030012 
030104 


016064 
002212 


027040 


010752 
002212 
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027161 
027160 


SEQ 0111 


BGNSUB g>>>>>>>>>>>> oe -tinezes >>>>>>>>>>>> 
o€: } 
TRAP Cs6SUB } 
JSR PC, T22REST sSET COMMAND PACKET 
JSR PC, T22RT2 iSET UP OTHER COMMAND PACKET } 
SPRSASAEAEEASEEESESEESESEESESESESESSEASEESEEEESESESEEEESESEESESESESEES 
} ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
PPT TTT TTT TTT TTT TTT TT TTTTTTTTTTTTTTTTTTTTTTTT TTT TTT TTT TTT TTT Tt te 
JSR PC, SOFINIT 3:00 pera ON CONTROLLER 
6cS 20% ;6R IF INIT WAS OK 
INC FATFLG i8 OUNT 
Vv RO,R1 i CONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
CSEROF 
. 208 
-WORD SFIERR 
208 - WORD SFIMSG 
: MOV @T22PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADORESS 


| PERRERERERESEEEEREEEEEEEAEEEEESEEEEESEEEEEEELEO4EOEES6400000080088 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
J SRAAEAESEARESASEEEESESSSESSASESASERASERESSSSEASAESESSESSOASSASESESESEE 


JSR PC ,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
BCS 23% ;BR, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
TRAP  CSERHRD 
209 
4 WRTMSG 
“WORD SFIMSG 
238: TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 
BNE 50% ;8R IF SWITCH IS ON 
MOVB 200,7228S1 ;WRITE MISCELLANEOUS CONT/READ STATUS 
MOVB #10, 122850 ;FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
MOV @T22PK2 }WRITE SUBSYS MEM PACKET 
MOV Ra -TspeCRS) sISSUE COMMAND 
JSR ‘ CHKTSSR ;WAIT FOR SSR 
acs ;BR, IF NO ERROR 
MOV ;ERROR, SAVE TSSR 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T22SSR,.PKTSSR }TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP  CSERHRD 
.WORD 210 
"WORD T22SSR 
"WORD PKTSSR 
308: CKLOOP ;LOOP IF SELECTED 
TRAP © CSCLP1 
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SEQ 0112 
| TEST 2: OFF-LINE AND REJECT REWIND 
rity 026262 012704 027040 MOV @T22PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS j 
ries | SPRAAAAAAAAAAEEESEAESEAEEEKAREEAEEESEESEESESSESSESEESESESSSEESEEEAEEEEEEEE { 
4 3 
S338 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) ' 
o 
Sass §9O000606666660664606660646606606066666660666660600060060600600600060000046 
4538 026266 004737 010752 JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 
4539 026272 103407 6cS 50% + +P IF COMMAND ISSUED OK 
4540 026274 005237 002212 INC FATFLG 
4544 026 010001 MOV RO,R1 i SAVE CONTENTS OF TSSR 
4545 026302 ERRHRD ERRNO,WRTMSG, SFIMSG ‘WRITE CHARACTERISTISC FAILED 
026302 104456 TRAP CSERHRD 
026304 000323 -WORD 211 
026306 005054 -WORD WRTMSG 
026310 012124 -WORD SFIMSG 
4546 026312 508: CKLOOP sSCOPE LOOP 
026312 104406 TRAP CSCLP1 
4547 026314 016501 000002 MOV TSSRCRS),R1L :GET TSSR CONTENTS 
4548 026320 032701 000100 BIT @OFL .R1 sCHECK FOR THE OFFLINE BIT SET 
4549 026324 001006 BNE 60$ 3;8R, IF OFFLINE (GOOD) 
4550 026326 005237 002212 INC FATFLG sBUMP COUNT 
4554 026332 ERRDF ERRNO, T220FL,SFIMSG ;OFF LINE SHOULD HAVE BEEN SET (BAD) 
026332 104455 TRAP CSEROF 
026334 000324 -WORD 212 
026336 027375 . WORD T220FL 
026340 012124 «WORD SFIMSG 
4555 026342 60%: CKLOOP ;LOOP IF SELECTED 
026342 104406 RAP CSCLP1 
4556 026344 012737 102210 027150 65%: MOV #102210, T22PK2 sPOSITION COMMAND CREWIND MODE) 
4557 026352 012704 027150 MOV @T22PK2 ,.R4 :R4 = POINTER TO PACKET 
4558 026356 010465 000000 MOV R4, TSOBCRS) :ISSVE COMMAND 
4559 026362 004737 016340 JSR PC WAITF sWAIT FOR SSR TO SET 
4560 026366 016501 000002 MOV TSSRCR 5),R1 3;GET TSSR CONTENTS 
4561 026372 012702 100306 MOV @SSR!SC!OFL!BIT1!BIT2, R2;SET UP et ha 
4562 026376 020102 CMP R1,R2 sARE THEY EQUAL 
4563 026400 001406 BEQ 80$ iBR, IF OK ESP. FUNCTION REJECT 
4564 026402 005237 002212 INC FATFLG ;BUMP OUNT 
4568 026406 ERRHRD ERRNO, T22RWJ,EXPREC iTSSR INCORRECT AFTER TAPE eraes CMD 
026406 104456 TRAP CSERHRD 
026410 000325 213 
12 027544 -WORD T22RWJ 
026414 015564 “ E 
4569 026416 80%: CKLOOP ;LOOP IF SELECTED 
026416 104406 TRAP CSCLP1 
4570 026420 ENDSUB 3>>>>>>>>>2>>> END SUBTEST >>>>>>>>>>>> 
026420 L10041: 
026420 104403 TRAP CsESuB 
4571 026422 023727 002212 000017 CMP FATFLG, #15. :IS ERROR COUNT AT 25 
4572 026430 103402 BLO 999% ;B8R, IF LESS THAN 25 
4573 026432 004737 017272 JSR PC, CKDROP sTRY TO DROP THE UNIT 
4574 026436 999%: 
4575 
4576 3° 
4577 


4578 TEST 2, SUBTEST 3 
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| SEQ 0113 
| TEST 2: OFF-LINE AND REJECT REWIND 


4579 
4580 iVERIF IES THAT A REWIND COMMAND WITH CVC=1 CLEARS VCK | 
Sees :AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER. | 
Hy } 
4584 i- | 
4585 026436 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
026436 T2.3: 
026436 104402 TRAP CsBSUB 
4586 026440 004737 030012 JSR PC, T22REST sSET COMMAND PACKET 
ri ad 026444 004737 030104 JSR PC, T22RT2 3SET UP OTHER COMMAND PACKET 
ante SORHCHERESEEEESEEEEEEEEEESEEERSSESEEESEAEEAERESESSEESEEEEEEESEOEEEEEE 
q Fy 
sa3 sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
H 
pia | j SOROREEEEEEEEEESEEESEEESESEEESEEEEEERESRESEESEEEEEEEEEEEEESEEEEESEE 
& 
4595 026450 C04737 016064 JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER i 
4596 026454 103407 bcs 20% 368R IF INIT WAS OK 
4597 026456 005237 002212 INC FATFLG sBUMP COUNT 
4601 026462 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
104455 TRAP CsEROF 
326 214 
70 b1*) SFIERR 
026°72 012124 WORD SFIMSG 
4603 026474 20%: 
4604 026474 012704 027040 MOV @T22PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
e606 $ORSEEEEEEEEEEEEEESEEEESEEEEESEEEEEEESEEEEEEEESEEEEEEEEEEEEEESEEESDEEES 
460 3 
4608 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3 
4610 $ POSSESS EEEEEEEEEEEEEEEEEEOEEEEEEEEEEEEEEEEEEEESEEEEEESEEEEEESEESEE 
4611 
4612 026500 004737 010752 JSR PC ,.WRTCHR sISSVE WRITE CHARACTERISTICS 
4613 026504 103407 6cs 23% 368R, IF COMMAND ISSUED OK 
4614 026506 005237 002212 INC FATFLG sBUMP COUNT 
4618 026512 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 
4619 026514 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
026514 104456 CSERHRD 
026516 000327 TORO 215 
- WORD WRTMSG 
026522 012124 . WORD SF IMSG 
4620 026524 005737 002216 23%: TST EXTFEA sCHECK FOR EXTENDED FEATURES SW sWITCH 
4621 026530 001041 BNE 50% 36R IF SWITCH IS ON 
4623 026532 112737 000200 027161 MOVE #200, T22BS1 mse MISCELLANEOUS CONT/READ STATUS 
4624 026540 112737 000010 027160 MOVB #10, t228s0 sFUNCTION SELECTION BIT CTURN ON EXTFEA HW SWITCH) 
4625 026546 012704 027150 MOV @T22PK2 iWRITE SUBSYS MEM PACKET 
4626 026552 010465 000000 MOV Ra TSDBCRS) sISSUE C 
4627 026556 004737 016426 JSR PC,.CHKTSSR ;WAIT FOR SSR 
4628 026562 103407 BcSs 30$ 36R, IF NO E 
010001 MoV 8 VE TSSR 
4630 026566 005237 002212 INC FATFLG ;BUMP COUNT 
4634 026572 ERRHRD ERRNO, T22SSR,PKTSSR :TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
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SEQ 0114 
TEST 2: OFF-LINE AND REJECT REWIND 


So 
4 
x 
3 


TRAP CSERHRD 
WORD 216 


026574 0003350 d 
026576 027200 -WORD T22SSR 
| 026600 012136 -WORD PKTSSR 
i 4635 026602 30%: CKLOOP ;LOOP IF SELECTED 
| 026602 104406 CSCLPi 
Prt 026604 012704 027040 MOV @T22PACKET ,R4& sSUBROUTINE NEEDS PACKET RODRESS 
sone } OOO6666000060000006006006660666600000000066666666000600000600000608088 
66 3 
ro rt sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3 
sone } OOOO0646000000600000000606000006600066000006000006600006000800000086 
4644 026610 004737 010752 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 
4645 026614 103407 BCS 50$ 38R, IF COMMAND ISSUED OK 
4646 026616 005237 002212 INC FATFLG sBUMP COUNT 
4650 026622 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 
4651 026624 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC rs 
026624 104456 TRAP CSERHRD 
000331 «WORD 217 
026630 -WORD WRTMSG 
026632 012124 -WORD SFIMSG 
4652 026634 50%: CKLOOP sSCOPE LOOP 
026634 104406 TRAP CSCLPi 
4653 026636 016501 000002 MOV TSSRCRS),.R1 ;GET TSSR CONTENTS 
4654 026642 032701 000100 BIT @OFL,.R1 sCHECK FOR THE OFFLINE BIT SET 
4655 026646 001006 BNE 60% ;6R, IF OFFLINE (GOOD) 
4656 026650 005237 002212 INC FATFLG sBUMP COUNT 
4660 026654 ERRDF ERRNO, T220FL,SFIMSG sOFF LINE SHOULD HAVE BEEN SET (BAD) 
026654 104455 TRAP CsSEROF 
026656 000332 -WORD 218 
026660 027375 -WORD T220FL 
026662 012124 -WORD SFIMSG 
4661 026664 608: CKLOOP ;LOOP IF SELECTED 
026664 104406 TRAP CSCLPi 
4662 026666 012737 142010 027150 65%: MOV #142010, [gern sPOSITION COMMAND CREWIND MODE) CvC=1 
4663 026674 012704 027150 MOV @T22PK2 .R 3R4 = PUINTER TO PACKET 
4664 026700 010465 000000 MOV R4, Tspa(RS) sISSUE COMMAND 
4665 026704 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
4666 026710 016501 000002 MOV TSSR(R 5),R1 sGET TSSR CONTENTS 
4667 026714 012702 100306 MOV @SSR!IOFL!SC!BIT1!BIT2, R2;SET uP pec ree 
4668 026720 020102 CMP R1,R2 sARE THEY EQUAL 
4669 026722 001406 BEQ 808 iBR, IF OK ESP. FUNCTION REJECT 
4670 026724 005237 002212 INC FLG ;BUMP COUN 
4674 026730 ERRHRD ERRNO T22RUJ,EXPREC iTSSR INCORRECT AFTER TAPE eet ien CMO 
026730 104456 TRAP CSERHRD 
732 000335 -WORD 219 
026734 027544 -WORD T22RWJ 
026736 015564 -WORD EXPREC 
4675 026740 808: CKLOOP sLOOP IF SELECTED 
026740 104406 TRAP CSCLPi 
4676 026742 012703 027062 MOV @T22BFR,R3 sPGEINTER TO MESSAGE BUFFER 
4677 026746 016301 000006 MOV XSTO(R3),R1 sPICK UP XSTO FROM MESSAGE BUFFER 
4678 7 010102 R1,R2 ;SET UP EXPECTED 


026752 MOV 
4679 026754 042702 000020 BIC eBiT4,R2 sVCK SHOULD BE CLEAR 
020102 CMP R1,R2 E 
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| SE@ 0115 
TEST 2: OFF-LINE AND REJECT REWIND 
| 4681 026762 001406 BEQ 90$ 38R, IF OK (GOOD) 
i 4682 026764 005237 002212 INC FATFLG 3 T 
| 4686 026770 ERRHRD ERRNO, T22VCK,EXPREC ;VCK WASN'T CLEAR (BAD) 
j 026770 104456 TRAP CSERHRD 
i 026772 000334 -WORD 220 
| 026774 027617 -WORD T22vcK 
026776 015564 -WORD EXPREC 
4687 027000 90%: 
4688 027000 ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
027000 L10042: 
027000 104403 TRAP CsEsus 
4689 027002 023727 002212 000017 CMP FATFLG,@15. 3IS ERROR COUNT AT 25 
4690 027010 103402 BLO 999% 3;BR, IF LESS THAN 25 
4691 027012 004737 017272 JSR PC ,,CKOROP sTRY TO OROP THE UNIT 
4692 027016 999%: 
4693 027016 004737 016546 JSR PC, TSTLOOP 300 WE NEED TO ITERATE TEST 
4694 027022 103002 BCC 163% :8R, IF NO LOOP REQUIRED 
4695 027024 000137 025522 JMP T22L00P sEXECUTE AGAIN 
4696 027030 163%: EXIT TST 3ALL DONE THIS TEST 
027030 104432 TRAP CSExIT 
027032 001116 -WORD 110037-. 
4697 
4698 s¢ 
ps +44 sLOCAL STORAGE FOR THIS TEST 
g° 
4702 027034 .BLKB 10-<.-TSV2E7> 
4704 027040 T22PACKET: sCOMMAND PACKET FOR TEST 
4705 027040 100204 -WORD 100204 sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK 
4706 027042 027050 -WORD T22DATA sADORESS OF CHARACTERISTICS BLOCK 
4707 027044 000000 -WORD O 
4708 027046 000012 -WORD 10. sSTARTING VALUE OF BLOCK SIZE 
4709 027050 T22DATA: sCHARACTERISTICS DATA BLOCK 
4710 027050 027062 -WORD T22BFR sADDRESS OF MESSAGE BUFFER 
4711 027052 000000 -WORD O 
4712 027054 000024 -WORD 20. sLENGTH OF MESSAGE BUFFER 
4713 027056 000000 -WORDB O 
4714 027060 000007 . WORD 7 sSELECT DRIVE 7 
Syta 027062 T22BFR: .BLKW 25. sMESSAGE BUFFER 
: 
pit sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
’ 
4720 027144 -BLKB 10-<., -TSV2E7> 
4722 027150 T22PKe2: 
4723 027150 100206 - WORD 100206 sWRITE SUB SYS MEM COMMAND, IE AND ACK 
4724 027152 027160 WORD T226F2 sADDRESS OF SELECT BLOCK DATA 
4725 027154 000000 -WORDB O 
3738 027156 000006 -WORD 6. sSIZE OF DATA PACKET 
-EVEN 
4729 027160 T226F2: 
30 027160 000 T228S0: .BYTE O sBSELO AREA 
4731 027161 000 T228S1: .BYTE 0O ;8SEL1 AREA 
32 027162 000000 22Se2: c+] sSEL 2 AREA 
4733 027164 000000 T22S3: WORD O sDATA AREA 
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_ TEST 2: OFF-LINE AND REJECT REWIND 


| 4737 ins | MOTION PACKET COMMAND VALUES 
| 47386 027166 100201 22R0: .WORD 100201 sREAD TAPE FORWARD 
| 4739 027170 100205 T22WRT: .WORD 100205 sWRITE TAPE FORWARD 
4740 027172 100210 T22P0S: .WORD 100210 sPOSTt 0% TAPE 
4741 027174 100211 T22FOR: .WORD 100211 sFORMAT TAPE 

rips 027176 177777 «WORD 177777 sEND OF DATA 

474 

8748 

4745 s¢ 

4746 sLOCAL TEXT MESSAGES FOR TEST 

m0 a 

ores 027. 127 122 111 T22SSR: .ASCIZ ‘WRITE MI OUS CONTROL/READ STATUS Not Accepted’ 


750 027275 124 123 123 T22AM3: .ASCIZ ‘TSSR Init. Feiled After WRITE MISCELLANEOUS CONRTOL/READ STATUS’ 

4751 027375 104 162 151 T220FL: .ASCIZ wire 7 Select Cgiled, To oe i In TSSR’ 

pit 027450 124 123 123. T22TM: .ASCIZ ‘TSSR Incorrect After Sone & Coamend To Off-Line Device’ 

4753 027544 124 123 123 T22RWJ: .ASCIZ ‘TS8R Not Correct ereee WIND. with VCK Set’ 

4754 027617 103 126 103 T22vCK: .ASCIZ ‘CVC Set, Didn''t Reset VCK In mesooge Buffer’ 
052 052 T22WLK Abe 


4755 027672 0s2 22WLK: .ASCIZ ‘seeseeeT Is WRITES COcKED AND WILL CAUSE ERRORSessee’ 
4756 027757 117 146 146 TST22I0: -ASCIZ ‘Off-Line And Reject Rewind’ 

4757 -EVEN 

i . 

4760 {ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

4761 iWRITE SUBSYSTEM MEMORY COMMAND 

4762 3 

4763 s- 

B7G4 

4765 030012 T22REST: 

4766 030012 SAVREG + 4+ THE REGISTERS 

4767 030016 012701 027040 MOV @T22PACKET .R1 sSTAR THE PACKET 

4768 030022 012721 100204 MOV #100204 ,,(R1)+ + RITE SUBSYSTEM MEM. H ACK, IE 
4769 030026 012721 027050 MOV eT220ATA,CRL)» sADORESS OF CMARATSTICS DATA BLOCK 
4770 030032 005021 CLR cet iEXTENDED ADORESS 

4771 030034 012721 000012 MOV *(R1)- sSIZE OF DATA BLOCK IN BYTES 

4772 030040 012721 027062 MOV SunOS sADORESS OF MESSAGE BUFFER 

4773 030044 005021 CLR CR1)« 

4774 030046 012721 000024 MOV 20. *CR1)« sLENGTH OF MESSAGE BUFFER 

4775 030052 005021 CLR (Ride 

4776 030054 012711 000007 MOV @7,(R1) sSELECT ORIVE SEVEN 

4777 030060 012702 000020 MOV #20,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
4778 030064 012762 177777 027062 64%: MOV @177777, T22BFRCR2) TALL Ces TO MESSAGE BUFFER 

4779 030072 005742 TST -(R2) sBUMP R on 

4780 030074 020227 000000 CMP R2,00 i1s R2 AT ZERO YET 

4761 030100 001371 BNE 643 sKEEP GOING UNTIL DONE 

pit 030102 000207 RTS PC sRETURN 

4784 

4785 030104 T22RT2: 

4786 030104 SAVREG sSAVE THE REGISTERS 

4767 030110 012701 027150 MOV @T22PK2 ,.R1 sSTART OF THE PACKET 

4766 030114 012721 100206 MOV #100206, (R1)+ sWRITE suesvsTen MEM. WITH ACK, IE 
4789 030120 012721 027160 MOV @T228F2,(R1)+ sADORESS OF DATA BLOCK 

4790 030124 005021 CLR CR1)- EXTENDED ADORESS 

4791 030126 012721 000006 MOV #6.,CR1)+ sSIZE OF DATA BLOCK IN BYTES 

4792 030132 00502 CLR R 


1 CR1)d> 
4793 030134 012701 027160 MOV @T228F2,R1 sPOINT TO DATA SEL AREA 


SEQ 0116 
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SEQ 0117 | 
4796 030144 005011 CLR sLAST LOC TO BE CLEARED 
4797 030146 000207 RTS PC sRETURN 
4798 030150 ENDTST 


4794 030140 005021 CLR S82 3° 
4795 030142 005011 CLR Ri 
(Ri) 

0 L10037: 
s 030150 104401 TRAP CseTST 
4800 .SBTTL TEST 3: BASIC WRITE DATA 
4601 a° 
ae08 i THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES 
4804 3 Y, UWP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
4805 sWRITTEN OnTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 
4806 sLIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH 
4607 sTHE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS. 


4808 
4809 i THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 


461 a 
ST 


3 
48135 030152 o12737 006356 002170 @EPRT1, EPRTSW ; sSET UP PRIMARY ERROR MESSAGE 
003124 KTENABLE 


& 
= 
= 
~ 
te 
~ 


OSBINT sOISABLE 
@TST2310,.RO sASCII MESSAGE TO IDENTIFY TEST 
PC, TSTSETUP 300 INITIAL TEST SETUP 
PC, MENCK sCHECK FOR MEMORY 
NXMFLG 3SET FLAG 
#5 ,LOOPCNT sPERFORM S ITERATIONS 


017364 
030170 004737 sate°* 
034746 
016600 


srendeets § 


030204 022206 
030210 005037 003126 
030214 000005 
2° 
TEST 3, SUBTEST 1 


I VERIFIES THAT A WRITE COMMAND (ANY VALID MODE CODE) 
'MITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR I 


g>>>>>>>>>>>> SUBTEST >>>>>>>>>>>> 
el: 

soseeg Cse8su8 

004737 034762 JSR PC. T235REST sSET COMMAND PACKET 

004737 035054 JSR PC, T23RT2 sSET UP OTHER COPPA PACKET 


{EREOOSESOSEESAOSILSISESABHESOSERGAASEEES 





s 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
; SOSOEESESESESESESEEESSSEEEEESESESESEEEEEEEESSEEESEEESEOESEEESESESE 
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4850 0 
48651 030240 
48652 0 


| 
| 
030252 000455 
030254 003650 
030256 012124 
4858 030260 
4859 030260 012737 
4860 030266 


012704 


4901 030410 
4902 030414 


004737 
103407 


016064 
002212 


000007 
033440 


010752 
002212 


002216 


~ 
°o 


0000 

033550 
000000 
016426 


002212 


000007 
033440 


010752 


MACRO YOS.02 


033460 


033603 
033602 


033460 


JSR PC, — INIT 

6cs 203 

INC ao as 

MOV RO,R1 

ERROF ERRNO, SFIERR,SFIMSG 
208: 

MOV #7, T230SW 

MOV OT23PACKET,R4 
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SEQ 0118 


300 agp he ON CONTROLLER 
s8R IF INIT WAS OK 


sBUMP COUNT 
i CONTENTS OF TSSR REGISTER 


iFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 301 
-WORD SFIERR 
«WORD SFIMSG 


sSET DRIVE NUMBER IN PACKET 
sSUBROUTINE NEEDS PACKET ADDRESS 


“patie ian ee Mame Os | Hoo paginas: 


iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
RRA RR EAE RAEREAERARKAAHEAHRHEAAERAHEARAEERAHARERAARARAAREHHAEASHAESD 


JSR PC ,WRTCHR 

BCS 233 

INC FATELG 

ERRHRD ERRNO, WRTMSG, SFIMSG 
238: TST EXTFEA 

BNE 50% 

MOVB 200,T238S1 

MOVB 10, 17238S0 

MOV @T235PK2,R4 

MOV R4, TSDBCRS) 

JSR PC; CHKTSSR 

BCS 08 

MOV RO. RI 

INC FLG 

ERRHRD ERRNO” T23SSR,.PKTSSR 
308: CKLOOP 

MOV @7,T230SW 

MOV OT2SPACKET ,R4 


s ISSUE WRITE CHARACTERISTICS 
4 th IF — ISSUED OK 


OUN 
; SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC FAILED 
TRAP be _—— 


“WORD  SFIMSG 
;CHECK FOR EXTENDED FEATURES SW SWITCH 
:BR IF SWITCH IS ON 


umes MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
;WRITE SUBSYS MEM PACKET 


s ISSUE COMMAND 
iWAIT FOR SSR 
:BR, NO ERROR 
sERROR —_ TSSR 


UMP COUN 
sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
T CSERHRD 


RAP 

-WORD 303 

-WORD T23SSR 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP LscLP1 


sSET ORIVE NUMBER IN PACKET 
s;SUBROUTINE NEEDS PACKET ADDRESS 


SARA LAG NRE EINER EI PO CI I. 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
PEOSHEHAHKEHERORHORGESRESEHHEEASALHHAAKHAHHHSAESUHKSHHRERHHASHHOHSHEETRLES 


JSR PC .WRTCHR 
BcsS 50$ 


s ISSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 
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TEST 3: BASIC 


005237 
010001 


104456 
000460 


WRITE DATA 


002212 


000002 
000100 
002212 


177777 


002212 
017272 
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INC FATFLG 
MOV RO,R1 
ERRHRD ERRNO, WRTMSG, SFIMSG 
50%: CKLOOP 
MOV TSSR(AS),R1 
BIT OOFL .R1 
BNE 608 
INC FATFLG 
ERROF ERRNO, T230FL,SFIMSG 
60%: CKLOOP 
Mov @T23uD.R3 
65%: MOV (R3) TaspKe 
HOV @T23PK2 
MOV R4, TSDB(RS) 
JSR PC .WAITF 
MOV TSSR(RS).R 
MOV O35n! SC OF. 18IT1 6172, R2 
CMP R1,R2 
BEQ 808 
INC FATFLG 
ERRHRD ERRNO, T23TM, EXPREC 
60%: CKLOOP 
TST (R3)- 
CMP 0177777,(R3) 
BEQ 90% 
BR 658 
90%: 
ENDSUB 
000017 cre FATFLG, #15. 
JSR PC, CKDROP 
999%: 


3° 
; 
oad 3, SUBTEST 2 


sBUMP COUNT 
iSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC — 


CsERHRD 
"Moro 304 
-WORD WRTMSG 
-WORD  SFIMSG 
sSCOPE LOOP 
TRAP CSCLPi 
er TSSR_ CGNTENTS 
CK FOR THE OFFLINE BIT SET 
:6R, IF OFFLINE (GOOD) 
;BUMP COUNT 
:OFF LINE SHOULD HAVE om 3 SET a 
TWoRO 305 
«WORD T230FL 
-WORD SFIMSG 
;LOOP IF SELECTED 
TRAP Csc_P1 
sPOINTER FOR COMMANDS 
s TAPE MOTION C IN PLACE 


OMMAND 
;R4 = POINTER TO PACKET 


sGET TS 

iSET UP EXPECTED 

sARE THEY EQUAL 

:BR, IF OK ESP. FUNCTION REJECT 

;BUMP COUNT 

;TSSR INCORRECT AFTER baler CMD 


CSERHRD 
-WORD 306 
-WORD T235TM 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CscLPi 


;POINT TO NEXT COMMAND 
sEND OF THE COMMANDS YET 
:8R . IF DONE 
sMORE COMMAND(S) TO GO 
3>2>>>>>>>>>>> END SUBTEST >>>>>>>>> >>> 
L10044: 
TRAP CsEsSuB 
:IS ERROR COUNT AT 25 


3BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


i VERIFIES THAT WRITE DATA COMMANDS WITH CVC*1 AND THE 
sSWAP BYTES (SWE) BIT CLEAR OPERATES PROPERLY. THE 


sBYTE COUNT (RECORD SIZE) VARIES FROM 20 


THROUGH 64K 


SE@ 0119 
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104402 
4966 030576 015701 003116 
ce) 00024 


€06101 
4969 030606 0101357 033600 
4970 030612 004737 034762 
4971 030616 004737 035116 
30622 035054 


4980 030626 004737 016064 
49862 030634 005237 002212 


4989 030652 013737 002172 
4990 030660 012704 035440 


4998 030664 004737 010752 
5000 030672 005237 002212 


| 
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033460 


om VARYING INCREMENTS a UPON WHETHER OR NOT 
s THE DIAGNOSTIC IS ae ae IN THE LONG VERIFICATION 

;MODE ). THE TAPE IS NO , Seve BETWEEN SUCCESSIVE 

sRECORDS BUT IS REWOUND AFTER THE FINAL RECORD IS 

sWRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED 

sIN THE DATA BUFFER. AFTER EACH BLOCK IS WRITTEN, THE 
;TSSR AND TSBA REGISTERS, THE MESSAGE BUFFER, ANO THE 

;RAM CONTENTS ARE CHECKED. (THE RAM CONTENTS ARE CHECKED 

sUSING THE WRITE SUBSYSTEM MEMORY COMMAND. 

; 

; 

: 

g@ 


BGNSUBS g>>>>>>>>>>>> ee SUBTEST >»>>>>>>>>>>> 
T3.2: 
TRAP Cs6SUB 
MOV FRESIZ,R1 ;GET SIZE OF AVAILIABLE MEMORY 
cLCc CLEAR THE CARRY BIT 
ROL R1 sMAKE INTO BYTES 
MOV R1, T23RSZ sSTORE IN vest FOR USE LATER 
JSR PC, T23REST :SET COMMAND PACKET 
JSR PC, T23RTS iRESTORE PACKET 
JSR PC, T23RT2 ;SET UP OTHER COMMAND PACKET 


J SSSHHSASASSSSSOSSSHSAHSSSHEEEEESEEESEEESHESESSESESSSSESSESSESSEEEEEE 


; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
F SSSHAESSSCESESESESSSSESEESSEESEESHEESSSEESESSSESESSESOOEESEESESESEEEE 


JSR PC, SOF INIT :00 INITIALIZE ON CONTROLLER 
BCS 20% ;8R IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
T CSEROF 
-WORD 307 
-WORD SFIERR 
ase -WORD SFIMSG 
MOV UNITN, T230SW s;LOAD UP SELECTED UNIT NUMBER 
MOV @T23PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADORESS 
| OOSORESEEEEESEEESEEEESSEEESEEEESESESSEEEESESESEESEESSEEEESEEEOESES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
; 
| OOHOSESEEEAESEEESSEEEESEEESEEEEEEEESEEEEEEEEEEEEEEESEEOSEE40000086 
JSR PC .WRICHR sISSUE WRITE CHARACTERISTICS 
6cs 23% 38R, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SFIMSG ;WRITE CHARACTERISTISC renee 
TRAP CSERHRD 
-WORD 308 
-WORD WRTMSG 





SEQ 0120 


= 


TSV7 - HARDWARE TESTS 1-8 
WRITE DATA 


TEST 3: BASIC 
030706 
$006 030710 

030710 


5056 031104 
$057 031112 


012124 
104406 


004737 
012703 
013737 


012737 


004737 
012737 
112737 


011104 
000024 
003114 


140005 
140005 


004000 
033570 
017512 
033576 
000000 
016340 
000002 
000200 


035142 
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033572 


033570 


23%: 


CKLOOP 





TRAP 


SF IMSG 


sLOOP IF SELECTED 
CscLP1 


FPSSAAAHESSASSSHSSEEESSSEEESESSEEESESSEEEESEEESESEESESSESSESESEEEESES 


} ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


: 
FPSOHAAAHSSAAHASHSESAESSHOEEESSESEEESESSEESSESESESSSESEESSSEESSEEEEES 


JSR 
MOV 
MOV 


PC ,REWIND 
#20. ,R3 
FREE , T23WB 


s;CALL_THE TAPE REWIND 
sSTARTING RECORD SIZE 
;STARTING WRITE BUFFER ADORESS 


{OOSOORESEARESEEEEESEEEEEERESSEEESEEEEESEEESEEESESSSEESESEEEEEEEESS 
iWRITE DATA,CVC=1,ACK COMMAND 


a 
JOSSSASAAASSSSSASSHSSSSESSHHAEESSSESSESESESSSSESSEESSSHSASESSSESEESEEE 


85%: 


#140005 , T23PK3 
#140005, T23WRT 
T23WRT 


PCW 
TSSRCRS),R1 
@SSR ,R2 


80$ 
PC, T23CHK 


TSBACRS),R1 
3BFR,R2 


FATFLG 
ERRNO, T23BA,EXPREC 


R3, 07376 
115% 

PC, T23RT2 
0256. ,123S2 
#0, 1238S0 


;WRITE DATA. CvCel 
;SETUP F OR RETRY y¢ 


RY 
sSET UP _R4 WITH PACKET ADDRESS 
iSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
3SET UP RECORD SIZE IN PACKET 


ACK COMMAND 
OMMAND 


3;6R OK 
;CHECK SPECIAL CONDITION 
;LOOP IF SELECTED ie 


;GET TSBA CONTENTS 

sSET UP EXPECTED 

:SET TO END OF MESSAGE BUFFER 

sCHECK FOR EXTENDED FEATURES SW SET 
:B8R, IF IT NOT SET 

sBUMP_R2 FOR EXTRA DATA 

sARE THEY E 

:BR, IF TSBA IS CORRECT 


CsCLPi 


:TSBA WAS NOT CORRECT AFTER WRITe DATA 
TRAP‘ CSERHRD 


309 
-WORD T23BA 
-WORD EXPREC 
CscLP1 


sLOOP IF SELECTED 


RAP 
sONLY CHECK RAM UNTIL ITS FULL 
iz WRAPS AROUND ETC. 

MAKE SURE on aie AND DATA ARE CLEAN 
iSTARTING R AM ADDRESS 
s;STOP INTERNAL TSVOS DIAGNOSTICS 


SE@ 0121 
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112737 


| 000000 
| 033550 
5060 031132 010465 000000 
| 
| 


016426 


002212 


033502 


002212 


033604 
033604 
000400 
033604 
001750 
033600 
177776 


030722 
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633603 MOVB 0,7238S1 
MOV OT23PK2,R 
MOV R4, TSOBCRS) 
JSR PC, CHKTS 
Bcs 28 
MOV RO,R1 
INC FATFLG 
ERRHRD ERRNO, T23WSS,PKTSSR 
92%: CKLOOP 
JSR PC, T23RT2 
336 MOV 0256. , T23S2 
033602 MOVE 1,1238S0 
033603 MOVB 2.123851 
MOV @T23PK2,R4 
95%: MOV R4, TSOBCRS) 
JSR PC‘ CHKTSSR 
BCS 100$ 
MOV 0,R1 
FATFLG 
ERRHRD ERRNO, T23WSS,PKTSSR 
100%:  CKLOOP 
CLR R1 
CLR R2 
MOV T23BFR+20,R1 
MOV R3,R2 
CMP R1.R2 
BEQ 110$ 
FATFLG 
ERRHRD ERRNO, T23RNC,EXPREC 
110$:  CKLOOP 
INC T23S2 
INC T2352 
MOV R3,R1 
ADD 6256., 
CMP T23S2,R1 
BNE $ 
115%: ADD #1000. ,R3 
CMP R3, T23RSZ 
BGE $ 
CMP R3, 065534 
BEQ 120% 
JMP 65% 


SEQ 0122 

;SIZE OF RAM READ 
sSET R4 WITH PACKET ADDRESS 
sISSUE WRITE SUB SYS MEM COMMAND { 
;CHECK TSSR AND WAIT FOR SSR TO SET 
36R, IF NO ERRORS IN TSSR 
sSAVE TSSR 
38 COUNT 
;TSSR BAD AFTER WRITE SUB SYS MEM 

TRAP CSERHRD 

-WORD 310 

-WORD T23WSS 

. WORD PKTSSR 


s;LOOP IF SELECTED 
TRAP CsCLPi 
sMAKE SURE PACKET AND DATA ARE CLEAN 
sSTARTING RAM 
s;READ RAM COMMAND FOR WRITE SUB SYS M. 
sSIZE OF RAM READ 
sSET R4 WITH PACKET ADDRESS 
sISSUE WRITE SUB SYS MEM COMMAND 
sCHECK TSSR AND WAIT FOR SSR TO SET 
3BR, IF NO ERRORS IN TSSR 


sSAVE TSSR 

sBUMP COUNT 

;TSSR BAD AFTER WRITE SUB SYS MEM 
TRAP CSERHRD 
° 311 
-WORD T23WSS 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CsCLP1 

sCLEAR REGISTER 

sCLEAR REGISTER 

sPICK UP BYTE READ FROM RAM 

;SET UP EXPECTE 


;BR, IF OK CEQU 

s;BUMP COUN 

sRNC~RAM NOT CORRECT 
TRAP 
. WORD 
. WORD 


. WORD 
;LOOP IF SELECTED 


AP 
sBUMP RAM ADDRESS TO BE CHECKED 
;BUMP RAM eo BE CHECKED 


CsCLPi 


3BR, MORE TO CK 
sNEXT RECORD SIZE/DATA PATTERN 
CORD SIZE 


sIS R3 OVER MAX 

sIF RECORD SIZE IS TOO BIG QUIT 
sEND OF SUBTEST MAX REC IZE 
sBR, IF C ETED 


s00 MORE RECORDS 
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5109 031354 
5110 031354 


uw 
peers) 
~ 
wtr 
ooo 
retry) 
pe fae tne 
w 
“I 
L) 


be} 
s 
S 
) 
Ss 
5 
S 
s 


5142 031444 
03 


WRITE DATA 
004737 035116 
004737 035054 
012737 102010 
012704 033550 
010465 000000 
004737 016426 
103407 
010001 
005237 002212 
104456 
000471 
034076 
012136 

0440 
023727 002212 
103402 
737 017272 
104402 
004737 034762 
004737 035054 
004737 016064 
103407 
005237 002212 
010001 
104455 
000472 
003650 
012124 
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033550 


000017 


120%: 


JSR PC, T23RTS sRESTORE PACKET 
JSR PC, T23RT2 sCLEAN UP PACKET 
MOV #102010, T23PK2 s REWIND (POSITION) COMMAND 
MOV @T23PK2 ,R4 sLOAD R4 WITH PACKET ADDRESS 
MOV R4, TSOBCRS) sISSUE REWIND COMMAND 
JSR »CHKTS sWAIT FOR SSR TO SET 
BCS 130% 3BR, IF TSSR IS OK (GOOD) 
MOV RO,R1 SAVE TSSR CONTENTS 
INC FATFLG :BUMP COUNT 
ERRHRD ERRNO, T23RWN,PKTSSR i TSSR IS INCORRECT AFTER REWIND 
TRAP CSERHRD 
-WORD 313 
-WORD T23RWN 
130% - WORD PKTSSR 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10045: 
TRAP CSESUB 
CMP FATFLG,@15. :IS ERROR COUNT AT 25 
BLO 999% ;BR, IF LESS THAN 25 
JSR PC ,CKDROP ; TRY TO DROP THE UNIT 
999%: 
3¢ 
H 
— 3, SUBTEST 3 
i VERIFIES THAT WRITE DATA COMMANDS WITH CVC*#1 AND THE 
sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
| SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
;THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 
; 
H 
; 
g= 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T3.3: 


TRAP C$6SUB 
JSR PC, T23REST 3SET COMMAND PACKET 
JSR PC, T23RT2 sSET UP OTHER COMMAND PACKET 


J SHAASSEASSSSASSASSSASHSEASASERESASSESSSESESSHESESSASKSEESEEKEEEOEEEEEE 


; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


; 
RARE EAE AAAKLEREAKRAHA HAAR aR RRAEHAARAELAARMHKERARAGAEMEAEHEADKEA KES 


JSR PC, SOFINIT 300 Pain Te ON CONTROLLER 
BCS 20$ s8R IF INIT WAS OK 

INC FATFLG 38 OUNT 

MOV RO,R1 SCONTENTS OF TSSR REGISTER 
ERROF  ERRNO,SFIERR,SFIMSG SF ATAL ERROR TSSR WAS NOT OK 


SEQ 0123 





ee 
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5160 031502 208: 
| 5161 031502 013737 002172 033460 MOV UNITN, T230SW ;SET UP UNIT NUMBER 
sits 031510 012704 033440 MOV @T23PACKET, R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
sits {RRARAEKASEEEEEEEEEEREEEAEEEEEEEEEEEEEESESEEEEEEEEEEESEEEESEESEESESED 
1 3 
3166 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3 
gise { PRRSSAREAEEEEEEREEAEEAEESEEEEEEEEESEEEEEEEEESEEEEEEEEEEEEEEEEEEESE 
6 
5170 031514 004737 010752 JSR PC, ,WRTCHR sISSUE WRITE CHARACTERISTICS 
5171 031520 103407 6cs 23% 36R, IF COMMAND ISSUED OK 
5172 031522 005237 002212 INC FATFLG sBUMP COUNT 
5176 031 010001 Vv RO,R1 ; SAVE CONTENTS OF TSSR 
5177 031530 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC > 
031530 104456 TRAP CSERHRD 
031532 000473 .- WORD 315 
031534 005054 [WORD WRTMSG 
031536 Ci12124 - WORD SFIMSG 
5178 031540 23%: 
5179 031540 012703 000024 MOV #20. ,R3 sSTARTING RECORD SIZE 
318° 31 013737 003114 033572 65%: MOV FREE, T23WB sSTARTING WRITE BUFFER ADDRESS 
site PRRREREEAEEEES £O6446660004666660646666844666604066600006660606600008808 
1 3 
sifs sWRITE DATA,CVC=1,ACK,SWB COMMAND 
3 
gies { PRRREEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEREEEEEEEEDEEEEEEEEEEEEEEREEE 
51868 031552 012737 150005 033570 MOV #150005, T23PK3 sWRITE DATA, ere SWB COMMAND 
5189 031560 012737 150005 033612 MOV #150005 , T23WRT sSETUP FOR RET Y COMMAND 
$1 031 052737 004000 033612 BIS #4000, T23WRT sMAKE IT A RETRY 
5191 031574 012704 033570 MOV @T23PK3,R4 3SET UP R4 WITH PACKET ADDRESS 
$192 031 010300 MOV R3,RO sSET PATTERN IN CORRECT REGISTER 
5193 031602 737 017512 JSR PC,FILLMEM sFILL MEMORY WITH RECORD SIZE 
5194 031 010337 033576 MOV R3,T23SZ sSET UP RECORD SIZE IN PACKET 
5195 031612 010465 000000 MOV eee M's + Sa sISSUE COMMAND 
196 031616 004737 016340 JSR sWAIT FOR SSR TO SET 
5197 031622 016501 000002 MOV reeRCAS), R1 ;GET TSSR CONTENTS 
5198 031 012702 000200 MOV @SSR ,,R2 sSET UP EXPECTED 
5199 031632 020102 CMP R1,R2 sARE THEY EQUAL 
031634 001402 BEQ@ 80% 36R, IF OK 
5201 031636 004737 035142 JSR PC, T23CHK sCHECK SPECIAL CONDITION 
S202 031642 808: CKLOOP ;LOOP IF SELECTED 
031642 TRAP CSCLP1 
$203 1644 6501 MOV TSBACRS).R1 sGET TSBA CONTENTS 
5204 031650 012702 033462 MOV @T23BFR,R2 ;SET UP EXPECTED 
031654 702 16 ADD 16,R2 :SET TO END OF MESSAGE BUFFER 
5206 031 005737 002216 TST EXTFEA sCHECK FOR EXTENDED FEATURES SW SET 
207 031 1402 BEQ 85% 368R, IF IT NOT SET 
5208 031 062702 000002 ADD 62 ,R2 sBUMP R2 FOR EXTRA DATA 
5209 031672 020102 85%: CMP R1,R2 SARE THEY EQUAL 
5210 031674 001406 BEQ $ 38R, IF TSBA IS CORRECT 
$211 031676 005237 002212 INC FATFLG sBUMP COUNT 
$215 931702 ERRHRD ERRNO, T23BA,EXPREC sTSBA WAS NOT CORRECT AFTER WRITE DATA 
031702 104456 TRAP CSERHRD 
317 000474 . WORD 316 





as 


03460 
015564 


S254 032106 

S255 032110 001406 

5256 032112 0052357 

5260 032116 
032116 


032 
032124 —0 

5261 032126 
032 


126 104406 
5262 032130 005237 
5263 032134 005237 
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033502 


Ov2212 


033604 
033604 


MACRO YOS.02 


908%: 


033604 


033602 
033603 


92%: 


1008: 


1108: 
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R3,07376 
115$ 


FATFLG 
ERRNO, T23WSS ,PKTSSR 


PC, T23RT2 
0256. 


FATFL 
ERRNO, T23WSS,PKTSSR 


Ri 
R2 
T23BFR+20,R1 
R3,R2 
R2 
R1,R2 

os 


FATFLG 
ERRNO , T23RNC ,EXPREC 


a 


T23S2 
T23S2 


SEQ 0125 

| 

.WORD T23BA | 

"WORD EXPREC 

;LOOP IF SELECTED 
CsCLP1 


RAP 
sONLY ty a RAM UNTIL ITS FULL 
sIT WRAPS AR ETc. 

sMAKE SURE PACKET AND DATA ARE CLEAN 
i STARTING RAM ADDRESS 

sSTOP lh a TSVOS DIAGNOSTICS 


sSIZE OF RAM 

iSET R4 WITH PACKET ADDRESS 

sISSUE WRITE SUB SYS MEM COMMAND 
sCHECK TSSR ANDO WAIT FOR SSR TO SET 
ee ERRORS IN TSSR 


3 SAV 
OUR GAD AFTER WRITE SUB SYS MEM 
b 
TRAP  CSERHRO 
\WORD 317 
"WORD T23WSS 
"WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPL 
MAKE SURE PACKET AND DATA ARE CLEAN 
STARTING RAM ADDRES 
tREAD RAM COMMAND FOR WRITE SUB SYS HM. 
SIZE OF RAM READ 


RAM 
;SET R4 WITH PACKET ADDRESS 
sISSUE WRITE SUB SYS MEM CMD (READ RAM) 
sCHECK TSSR AND WAIT FOR SSR TO SET 
1 ee Teen ERRORS IN TSSR 


3 SAV’ 

sBUMP COUNT 

:TSSR BAD AFTER WRITE SUB SYS MEM 
TRAP CSERHRD 
-WORD 318 
-WORD T23WSS 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CSCLPi 


sCLEAR REGISTERS 


s6R, IF OK CEQUAL) 
BUMP COUNT 
sRNC=RAM NOT CORRECT 


TRAP CSERHRD 
-WORD 319 
-WORD T23RNC 
-WORD EXPREC 
sLOOP IF SELECTED 
CscLPi1 


s;BUMP RAM ADDRESS TO BE CHECKED 
sBUMP RAM ADDRESS TO BE CHECKED 
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TEST 3: BASIC WRITE DATA 


010301 
062701 


000400 
033604 
001750 
033600 
177776 
031544 
035054 
102010 
033550 
000000 


016426 


002212 


002212 
017272 


034762 
035116 
035054 


MACRO YOS.02 Monday 16-Sep-85 13:41 Page 77-22 


MOV R3,R1 sGET SIZE OF RECORD 
ADD €256..R1 sFIGURE OUT END RECORD ADDRESS 
CMP T23S2,.R1 Oe END OF RAM CHECK YET 
BNE 95% IF TO CHE 
1158: AOD iNEXT RECORD SIZE/DATA PATTERN 
CMP R3, T23RSZ sIS R3 OVER MAX RECORD SIZE 
BGE 120% sIF RECORD SIZE IS TOO BIG QUIT 
CMP R3, 065534. sEND OF SUBTEST MAX RECORD SIZE 
BEQ 120% 3;8R, IF COMPLETED 
3208 JMP 65% 300 MORE REC 
JSR PC, T23RT2 sCLEAN UP PACKET 
033550 MOV #102010, os i REWIND (POSITION) COMMAND 
MOV eT23PK2 3LOAD R4 WITH PACKET ADDRESS 
MOV R4, TsDBRS) sISSUE REWIND C 
JSR PC. CHK TSSR iWAIT FOR SSR TO SET 
BCS 130% ;BR, IF TSSR IS OK (GOOD) 
MOV RO,R1 ; SAVE TSSR CONTENTS 
INC FATFLG 3;BUMP T 
ERRHRD ERRNO, T23RWN,PKTSSR ;TSSR IS INCORRECT AFTER REWIND 
TRAP CSERHRD 
° 320 
«WORD T23RWN 
130% -WORD PKTSSR 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
Li 3 
TRAP CsESuUB 
000017 CMP Sonne eee. 3IS ERROR COUNT AT 25 
BLO 999% ;BR, IF LESS THAN 25 
JSR PC ,CKOROP sTRY TO DROP THE UNIT 
999%: 
3° 
H 
ened 3, SUBTEST 4 
{VERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL MODE 
sFIELD OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH 
;THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE 
j 
H 
t i 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
73.4: 
TRAP Cs6SUB 
JSR PC, T23REST sSET COMMAND PACKET 
JSR PC, T23RTS ;RESTORE PACKET 
JSR PC, T23RT2 3SET UP OTHER COMMAND PACKET 


§ COOSOEEEEEEEEEEEEEEEESEEEEEEEEEEEEOEEEEEESEEEEEEEOEOO6800080000888 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


$ 
Pe KSEREKEEAEEHKEREREHKEEGERHKAAAHRHDHARHAKRAHSESHHAHR AKANE IHHESRHSERHEHAH 


SEQ 0126 








TSV7 - HARDWARE TESTS 1-8 


TEST 3: BASIC 


| 
| 
| 


5316 032302 
5317 306 


3 32440 
S359 032442 
5360 032444 


WRITE DATA 
004737 016064 
103407 

005237 002212 
010001 

104455 

000501 

003650 

012124 

013737 002172 
012704 033440 
004737 010752 
103407 

005237 002212 
010001 

104456 
000502 
005054 

012124 

012737 104405 
013737 003114 
062737 000001 
012737 000400 
012704 033570 
010465 000000 
004737 016340 
016501 000002 
012702 100206 
020102 

001406 

005237 002212 
104456 

000503 

034022 
012136 

104406 

104403 
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033460 


033570 


033576 


20%: 


PC, SOF INIT 
20% 
FATFLG 


RO,R1 
ERRNO, SFIERR, SFIMSG 


UNITN, T230SW 


@T23PACKET ,R4 


SEQ 0127 


300 gh ha. a CONTROLLER 


36R IF INIT 
sBUMP COUNT 

; CONTENTS OF is 4 REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
. 321 
° SFIERR 
-WORD  SFIMSG 


sSET ORIVE NUMBER IN PACKET 
sSUBROUTINE NEEDS PACKET ADDRESS 


{ SASSAAASSAASESESEAESSSEEEASSESLESESSEEEEESSEESESSESESEEESEEEESSEEEEEES 


iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


i 
FRSOHSAHASSSSSAASSSSHESSEAEESESKESSESESEESSSSESSESSEESESSSEESESESESES 


JSR 
6cS 
INC 


MOV RO,R1 
ERRHRD ERRNO, WRTMSG, SFIMSG 


PC .WRTCHR 
23% 
FATFLG 


sISSUE WRITE CHARACTERISTICS 
OR yO et ISSUED OK 


i SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC > 


PRSRERAHKEREKKE SAE RHHHEEEKEDEEAEAAAEEAARASLRHARASSAKHEHARHASHEHHARESES 


;WRITE DATA, ACK, ILLEGAL BITS 


a 
S SSHEKESESESESSESESSHSSSESSSHSSESSASSSSSSSESESESSSSSSHSSESSSSESEESESESEES 


23%: 


INC FATFLG 
ERRHRD ERRNO, T23TM,PKTSSR 


CKLOOP 
ENDSUB 


#104405 , T23PK3 


FREE, T23WB 


SRCRS),R1 
+ yt 'SC!BIT1!81T2,R2 


sWRITE DATA, ACK, ILLEGAL BITS 
sSET UP WRITE BUFFER ADORESS 
ADORE CILLEGAL ) 


sISSUE COMMAND 
sWAIT FOR SSR TO SET 
T 
sARE THEY EQUAL 
38R, IF OK ESP. FUNCTION REJECT 
sBUMP COUN 
sTSSR INCORRECT AFTER WRITE C 


TRAP CSERHRO 
-WORD 323 
-WORD  T23TM 
-WORD PKTSSR 


;LOOP IF SELECTED 
TRAP CscLPi 


3>>>>>>>>2>>>> END SUBTEST >>>>>>>>>>>> 
Li 


CsESuB 


TRAP 
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104456 CSERHRO 
032604 000505 TWoRo 325 


SEQ 0128 
TEST 3: BASIC WRITE DATA 
| $367 032464 023727 002212 000017 CMP FATFLG,@15. :IS ERROR COUNT AT 25 
i 5368 032472 103402 BLO 999% 36R, IF LESS THAN 25 i 
5369 032474 004737 017272 JSR PC ,CKDROP 3TRY TO DROP THE UNIT f 
5370 032500 999%: | 
5371 
5372 3° 
5373 3 
Sses ‘weel 3, SUBTEST 5S ) 
5376 i VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA 
5377 ;BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
sere sTHE PROPER ERROR STATUS WITHOUT MOVING TAPE 
t 
S301 “ 
$362 032500 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
032500 T3.5: 
032500 104402 TRAP Cs6SUB 
$383 032502 C05737 003126 TST NXMFLG 300 WE HAVE IT? 
5384 032506 001002 BNE 10$ IF ENOUGH 
5385 032510 000137 033030 JMP 90% skip THIS TEST IF NOT 
5386 032514 004737 034762 108: JSR PC, T23REST 3SET COMMAND PACKET 
5387 032520 004737 035116 JSR PC, T23RTS {RESTORE PACKET 
Se8 032524 004737 035054 JSR PC, T235RT2 3SET UP OTHER COMMAND PACKET 
gene § OO8O0000000000000000066000660006600066060060000600006806000000000088 
Sees ; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
iad PPT T TTT TTT TTT TTT TOTTI TOTTI TTT TT TTT TTT TT TT TTT TTT TTT TTT TTT TTT TTT 
5396 032530 004737 016064 JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
5397 032534 103407 6cs 20% 3BR IF INIT WAS OK 
5396 032536 005237 002212 INC FATFLG ;BUMP COUNT 
$402 032542 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
5403 032544 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
032544 104455 TRAP CsEROF 
032546 000504 -WORD 324 
032550 003650 -WORD SFIERR 
032552 012124 -WORD SFIMSG 
5404 032554 20%: 
5405 032554 013737 002172 033460 MOV UNITN, T230SW sSET ORIVE NUMBER UP 
at0s 032562 012704 033440 MOV @T23PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
rH e4 $ OO0006060000006066006060000006000000006006660600600006006000000000000086 
Fatty WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
siig . 0600666600600600600000660000000606060060000066060000060800600000800000088 
5414 032566 004737 010752 JSR PC .WRTCHR sISSUE WRITE CHARACTERISTICS 
$415 032572 103407 ecs 123% 36R, IF COMMAND ISSUED OK 
5416 032574 005237 002212 INC FATFLG sBUMP C 
5420 032600 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5421 ossees ERRHRD ERRNO,WRTMSG, SFIMSG ; WRITE CHARACTERTSTISC Fan. SD 





032606 
032610 


tad tte 
: 


w 
res 
= 
a 


& 


Es 


gyeesyyyyy 
seseusis 
oo 

8 

$ 


i 
i 


5450 0 


005054 
012124 
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160000 
177776 
016466 


003130 


033574 


140005 
003130 


000100 
033570 
000000 
016340 
000002 
104210 
033574 
033574 
002212 
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033603 
033602 


033570 
033572 
033576 





es 


SEQ 0129 


WRTMSG 


. WORD { 
-WORD SFIMSG 
} 


J SSSSSSHSSSSSASSSSEHSESSSSESESSSSHESSSESSHSSSSESSESESSESSSESESSESEEES 
i}WRITE DATA, ACK, CvC#1 


: ti 
§ SOSASOSSESASESESESEEEEEHSSESEEASESSEEESEESEESSEESESSSSESEESSEESSSEEEE 


123%: 


1308: 


258: 


TST 


EXTFEA 
30 


eT 
R4, TSOBCRS) 
PC. SSR 


RO,R1 
FATFLG 
ERRNO, T22SSR,PKTSSR 


#160000 ,R1 
#177776 ,R2 
. XNXM 
808 
R1,NXMLO 
T23WB+2 


#140005 , T23PK3 
WB 


TSSRCRS).R 
a5¢ Hon SSA:BITS., oR2 


808 

T23WB+2 

T23WB +2, 04 

243 

FATFLG 

ERRNO, T23TM, PKTSSR 


sCHECK FOR EXTENDED FEATURES SW SWITCH 
s6R IF gh IS ON 


;WRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT (TURN ON EXTFEA Hw SWITCH) 
;WRITE SUBSYS MEM PACKET 
sISSUE COMMAND 
WAIT FOR SSR 
:6R, IF NO ERROR 
sERROR, SAVE TSSR 
3;BUMP OUN! 
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP — CSERHROD 


. 326 
-WORD T22SSR 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CscLP1 
OW ADORESS STAR 
LIMIT ye FOR ee (HIGHEST) 
oh Sox FOR NXM ADORESS 


IF NON FOUND 
ert ADORESS UP FOR TEST 


sCLEAR OUT THE HIGH BITS AREA 


iSeT Ue ‘Ge URTTE BUFFER ADDRESS 


OK ESP. FUNCTION REJECT 
sBUMP TO NEXT ADDRESS BIT 
sCHECK TO SEE IF OVERFLOW INTO 19 BIT 
1BR, IF BITS 17 AND 18 
sBUMP COUNT 
:TSSR INCORRECT AFTER WRITE COMMAND 


TRAP C#ERHROD 
-WORD 327 
-WORD T23STM 
-WORD PKTSSR 





ee ee 
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SEQ 0130 
TEST 3: BASIC WRITE DATA 
74 033026 808 CKLOOP Loop IF SELECTED 
a 104406 : ; TRAP —- CSCLP1 
$475 033080 908: 
76 033030 ENDSUB g>>>>>>>>>>>> sear SUBTEST >>>>>>>>>>>> 
033030 104403 : TRAP, —COESUB 
77 033032 023727 002212 000017 CHP Ss FATFLG, 015. 1S ERROR COUNT AT 25 
78 033040 103402 BLO 0—_—«9998 BR. IF LESS THAN 25 
79 083042 004737 017272 ,, ose PC, CKDROP TRY TO OROP THE UNIT 
3046 : 999 3 


3° 
ITEST 3, SUBTEST 6 


‘VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA 
iBUTFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO 
TENT WEHORY TERMINA 


7 
TES WITH THE PROPER 
I ATUS. A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH 
bs sTHAT TAPE IS ACTUALLY MOVED AND WRITTEN. 
t- 
$493 033046 BGNSUS 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
033046 73.6: 
033046 1 TRAP Cs6SuB 
94 033050 00575 003126 TST NXMFLG 300 WE HAVE IT? 
Stsone 001002 BNE 108 38R, IF ENOUGH 
000137 033574 JP 1308 1 skip THIS TEST IF NOT 
033062 004737 035116 108: JSR PC. T23RTS sRESTORE PACKET 
033066 004737 034762 JSR PC. veones" sSET COMMAND PACKET 
033072 004737 035054 JSR PC.T 23rT2 iSET UP .OTHER COMMAND PACKET 


[OOOSCESEEEESESESEEDEEEEDSs EESESESEESESESEESEDESSEDEEEEEESEEEEEESEE 
s ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


i 
pSOSGHSSERHSSSEHOADDESHSALASSSASSHLSHEHHSESSASECHASSSASSESESSHUECHLSEAEASH 


peeve vavereesssen 
setetetetotot 

one 

at 

S253 


004 016064 JSR PC, SOF INIT 3:00 INITIALIZE ON CONTROLLER 

ecs 20% 1BR If INIT WAS OK 
033104 002212 INC FATFLG 
03311 MOV RO,Ri }CONTENTS OF TSSR REGISTER 
033 ERROF ERRNO, SFIERR,SFINSG sFATAL ERROR TSSR WAS NOT OK 
033 5S TRAP s€ROF 
033 0 . WORD $35 
033116 0036 “WORD  SFIERR 
033120 012124 as "WORD SFIMSG 
oss 3 
33 013737 002172 033460 Mov UNITN, T230SM sSET ORIVE NUMBER IN PACKET 
033130 012704 033440 Mov OT2SPACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 


PPSLSEESSHSLDAOSSLOGASEHSSHESESSEGESESSHKECASGSSL GSH HSHCSSOHSAKSHADHSHSSHESD 
TURITE CHARACTERISTICS COMMAMD (CALL TO URTCHR) 


a 
FSSHSSEOLHSSSOLCESSSHSS SLASH HEGASESOSSSSLAASSSHOHAS HGHSTVSSASOBHAOHOS 


1s 
Bi 
: 





a a 
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033134 
te) 


012124 


012701 
C12702 
004737 
103051 
010137 
012737 


010752 
002212 


160000 
177776 
016466 


003130 
000000 
140005 
003130 
000500 
033572 
000000 
033570 
000000 
016340 
000002 
104210 


033574 
033574 


MACRO YOS.02 


033574 
033570 


033576 


002212 . 


033550 


—_——— 


JSR PC ,WRTCHR 
BCS 23% 
INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO, WRTMSG, SFIMSG 


Monday 16-Sep-85 13:41 Page 77-27 


FS eB WRITE CHARACTERISTICS 
++ F COMMAND ISSUED OK 


OUNT 
i SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC a 


J SSAEHSHSEAHASEASESESSHESSESESASERESESESESSEKESSESSESESOKSESEEEEEAEDESESESE 


;WRITE DATA, ACK,CVC#1 


3 
FSSAAASAKASASASSEASESAESESEAEASHEASEALESESESAEKSESRSHSSESSEESEEEEESESEEEEES 


23%: 
MOV #160000,R1 
MOV @177776,R2 
JSR ‘ 
Bcc 
MOV R1,NXMLO 
ie MOV 00. T23WB+2 
MOV #140005, T23PK3 
MOV NXMLO,Ri 
SUB RL 
MOV R1, T23WB 
MOV @0.,123SZ 
MOV T23PK3,R4 
MOV R4, TSOBCRS) 
JSR C{WAITF 
MOV TSSR(RS),R 
MOV Osc INXM: SSAIBITS, R2 
CMP R1,R2 
BEQ 803 
INC T23WB+2 
CMP T23WB+2,04 
BNE 243 
25%: INC FATFLG 
ERRHRD ERRNO, T23TM,PKTSSR 
808: CKLOOP 
JSR PC, T23RT2 
JSR PC. T23RTS 
MOV #102010, T23PK2 
MOV eT23PK2. 
MOV R4, TSOBCRS) 
JSR PC. CHKTSSR 
Bcs 1308 
MOV RO.R 
INC FAT 


FLG 
ERRHRD ERRNO, T2S5RWN,PKTSSR 


sNXM LOW ADORESS STAR 
sLIMIT CHECK FOR NXM (HIGHEST) 
NXM_ ADORESS 


FOUND 
UP FOR TEST 
sSET TO 16 BIT ADORESS 


sWRITE DATA, a CvC=1 
eS a ME! 

ET ADORESS A pe LOWER 
;LOAD INTO THE PACKET 

;SET UP BUFFER SIZE (64K BYTES) 
Ra * POINTER TO PACKET 

sISSUE COMMAND 
iWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP Oeec res 
3 THEY EQUAL 
;BR, IF OK ESP. FUNCTION REJECT 
; BUMP TO NEXT RANGE 


Y ADDRESS LOW BITS 


ADDRESS 
CHECK TO SEE A . WENT TO HIGH 


;6R, IF NO OVER F 

;BUMP COUNT 

;TSSR INCORRECT AFTER WRITE COMMAND 
TRAP CSERHRD 
-WORD 330 
-WORD T23TM 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLPi 


;CLEAN UP PACKET 


SSR 
SAVE TSSR_ CONTENTS 
;BUMP COUNT 
:TSSR IS INCORRECT AFTER REWIND 


SEQ 0131 
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TEST 3: BASIC WRITE DATA 


ees 
EEE 


Seenent 
: 
: 


EESEEEEE 
CORBUNHO 
co 


00006 
033552 033602 
033554 


033570 100005 


pptseert 


033576 000000 


RRFSFRS 
KGLAKHS 


002212 000017 
017272 
016546 
030222 


1308: 


999%: 


1638: 
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FATFLG, #15. 
9998 

PC, CKOROP 
PC, TSTLOOP 
1638 
T23L9CP 
Tst 


;LOCAL STORAGE FOR THIS TEST 
3° 


;WRITE SUBSYSTEM MEMORY COMMAND PACKET 


.BLKB 
T23PACKET: 
. WORD 
. WORD 
. WORD 
. WORD 
T23DATA: 
.WORD 
. WORD 
. WORD 
. WORD 
T230SW: .WORD 
T236FR: .BLKW 
Q 
.BLKB 
T23PK2: 
. WORD 
. WORD 
. WORD 
. WORD 
-BLKB 
T23PK3: 
. WORD 
T23WB: .WORD 
. WORD 
T23S2Z . WORD 
.EVEN 
T23RSZ: .WORD 


10-<. -TSV2E7> 


100004 
T23DATA 
te) 

8. 
T238FR 
te) 

10. 

f°) 


° 
2s. 


10-<. -TSV2E7> 
100006 

T238F2 

te) 

6. 
10-<.-TSV2E7> 
100005 

° 

0 

° 


SEQ 0132 
TRAP CSERHRD 
331 
WORD T23RUN 
WORD PKTSSR 


7>>>>>>>>>2>2> END SUBTEST >>>>>>>>>>>> 
110051: 
TRAP CsESuB 
AT 25 


;00 WE NEED TO ITERATE TEST 
:BR, NO LOOP REQUIRED 
;EXECUTE AGAIN 

ALL DONE THIS TEST 


TRAP CsExIT 
-WORD 110043-. 


s;COMMAND PACKET FOR TEST 

;WRITE CHARACTERISTICS COMMAND. WITH ACK 
;ADORESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 

sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE O 
sMESSAGE BUFFER 


;WRITE SUB SYS MEM COMMAND. AND ACK 
;ADDRESS OF SELECT BLOCK DATA 


+SIZE OF DATA PACKET 


;WRITE COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER (EXTENT) 


sLARGEST TAPE RECORD IN BYTES 


- eee — 


a TT 


eee 
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5637 
5639 
5641 
5643 
5645 
3647 


35651 
5653 
36 
S655 
36 
5657 
sé 


5659 033624 
5660 


PessreEeys 





n2s 
° 


(°) 
93 


010 


100005 
100405 


102005 
177777 


012701 


005021 
012711 
012702 





T238F 2: 

T238S0: .BYTE 
T238S1: .BYTE 
T23 . WORD 


23S2: 
12383; WORD 
; 


T23TMP: .WORD 
T23WRT: [WORD 
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.EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


T23W0: .WORD 
. WORD 
T23CON: .WORD 
. WORD 


10 ;BSELO AREA 
200 ;BSEL1 AREA 

ce} ;SEL 2 AREA 

0 }DATA AREA 

0 ; TEMPORARY REGISTER 
0 ;RETRY COMMAND 
100005 ;WRITE DATA (NEXT) 
100405 ;WRITE DATA RETRY 
102005 ;WRITE CONTINOUS 
177777 sEND OF DATA 


se 
sLOCAL TEXT MESSAGES FOR TEST 


T23wss: 
TST23I0: 


3¢ 


‘WRITE Gomnend Not seer ee 

‘EOT Not Found In 12000 4k (Use Shorter Tape)’ 

*WRITE DATA OVER EOT GAVE NO” tape "STATUS ALERT’ 

*TSSR Not Correct After WRITE Command Re ject’ 

‘Rewind (POSITION) Command Not Accepted’ 

‘RAM Error, Correct Dete Pattern Not In Ren’ 

*TSSR Init. Failed After WRITE Command’ 

‘Drive 7 Select Feiled To Set “OFL” In TSSR’ 

*‘TSSR Not Correct After WRITE DATA Commend, SWB Bit Set’ 

*TSSR Not Correct After WRITE DATA Commend, Check For Tape Offline’ 

‘CVC Set, Didn''t Reset VCK In Message Buf fer’ 

‘TSBA Not Correct After WRI“E DATA Commend’ 

warts SUBSYSTEM MEMORY Commend Not Accepted (RAM Read)’ 
ASCIZ ‘Basic Write’ 


; ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T23REST: 


;SAVE THE REGISTERS 


eT2SPACKET. R1 ;START OF THE PACKET 
#100004, (Ri) ;WRITE SUBSYSTEM MEM. WITH ACK 
@T23DATA, (R1)+ ;ADDRESS OF CHARAISTICS DATA BLOCK 
(R1)« ;EXTENDED ADORE 
#10. ,(R1)- ;SIZE OF DATA BLOCK IN BYTES 
eT2S6FR.(R1)« ;ADORESS OF MESSAGE BUFFER 

+ 
#20; .(R1)+ ;LENGTH OF MESSAGE BUFFER 

oo 
@0,(R1) ;SELECT ORIVE 


ZERO 
#24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 





ee 
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sé 
gs 
2 


574 S232 
5750 035234 
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#177777, T23BFRCR2) 
-C(R2) 

R200 

64% 

PC 


eT23PK2,R1 
#100006, (R1)-+ 
eT2sBF2. sCR1Do 


@T23PK3,R1 
#100005, (R1)-+ 
C(R1)- 


(R1)+ 
(R1) 
PC 


ee eee 


sALL_ONES TO MESSAGE BUFFER 
;BUMP DOWN TO NEXT LOCATION 
iR2 AT ZERO Y 


YET 
+ GOING UNTIL DONE 
sRETURN 


sSAVE THE BESTSTERS 
iSTAR T OF THE PACKET 

sWRITE suesvsTen MEM. WITH ACK 
sADORESS OF DATA BLOCK 


ss 
sSIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


sRETURN 
sSAVE THE REGISTERS 
OF T 


E ADORE 
;SIZE OF DATA BLOCK 
sRETURN 


3 
ROUTINE yo neve WRITE DATA IN CASE OF BAD TAPE FOR TEST 


WRITE DATA 
012762 177777 633462 64%: MOV 
005742 TST 
020227 000000 CMP 
001371 BNE 
RTS 
T23RT2: 
SAVREG 
012701 033550 MOV 
012721 100006 MOV 
012721 033602 MOV 
CLR 
012721 MOV 
012701 033602 MOV 
005021 CLR 
005021 CLR 
005011 CLR 
€00207 RTS 
T23RTS: 
SAVREG 
012701 033570 MOV 
012721 100005 MOV 
005021 CLR 
005021 CLR 
005011 CLR 
000207 RTS 
3? 
33,SUBTEST 
3 
: INPUTS: 
3 
i — 
T23CHK : 
SAVREG 
005037 033610 CLR 
032701 BIT 
0014 BEQ 
013702 033472 MOV 
032702 BIT 
001401 ae 
032702 020000 1s: BIT 
001002 BNE 
000440 BR 
000207 EXIT: RTS 
RETRY: 
012703 000024 $: MOV 
013737 003114 033572 MOV 
12737 033612 033570 MOV 
012704 033570 MOV 
010300 MOV 
004737 017512 JSR 


Ri=TSSR 


SUBROUTINE SETS UP T235WRT FOR RETRY 


R3,RO 
PC .FILLMEM 





; ae THE REGISTERS 


XSTA 
:I1S UNC SET IN XSTAT1? 

1NO. CHECK 

:YES,00 WRITE DATA RETRY 

:IS COR SET IN XSTATL THEN? 
YES SO RETRY 

;NO, YOU GOT PROBLEMS 
;RETURN 


sSTARTING RECORD SIZE 
: a ee BUFFER ADDRESS 


sFILL MEMORY WITH RECORD S 


SEQ 0134 


RETRY COMMAND SETUP BY SUBROUTINE 
; UP_R4 WITH PACKET ADDRESS 
sSET PATTERN IN CORRECT weeas ee 


ee 
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| SEQ 0135 
TEST 3: BASIC WRITE DATA 
| $751 035240 010337 033576 MOV R3,123SZ ;SET UP RECORD SIZE IN PACKET 
5752 035244 010465 000000 MOV R4, TSOBCRS) sISSUE COMMAND | 
5753 035250 004737 016340 JSR PC. WAITF ;WAIT FOR SSR TO SET 
5754 035254 016501 000002 MOV TSSR(RS),R1 ;GET TSSR CONTENTS 
|  §755 035260 012702 000200 MOV @SSR,.R2 sSET UP EXPECTED 
|  §756 035264 020102 CMP R1,R2 ;ARE THEY EQUAL 
5757 035266 001746 BEQ EXIT :8R, IF OK 
5758 035270 005237 033610 INC T23TMP ;TRY FIVE TIMES THEN EXIT 
5759 035274 022737 000005 033610 CMP 05, T23TMP ;D0NE FIVE YET? 
5760 035302 001341 BNE 23 3NO GO AGAIN 
5761 035304 005237 002212 FATAL: INC FATFLG ;BUMP COUNT 
5765 035310 013702 033462 MOV T23BFR,R2 ;LOW ORDER MSGBUF 
5766 035314 ERRHRD ERRNO, SCHERR,PKTMES iTSSR INCORRECT AFTER WRITE | DATA 
035314 104456 TRAP CSERHRO 
035316 000514 .WORD 332 
035320 005276 "WORD SCHERR 
035322 012200 "WORD PKTMES 
5767 035324 004737 017272 JSR PC, CKDROP sOROP THE UNIT 
5768 035330 ENDTST 
035330 L10043: 
soon 035330 104401 TRAP CSETST 
3770 .SBTTL TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
" 
5772 
5773 THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
5774 ;COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
5775 }DATA BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY 
5776 sSPACE IS AVAILIABLE), AND BYTE-SWAP CONTROL ARE USED. THIS TEST 
5777 ;0F COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY 
5778 ;READING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER 
5779 ; TERMINATIONS ON &XCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
5780 ;LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA 
5781 ;BUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC 
3782 ;READ COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. THE TEST 
3 
5784 3 
3785 ;THE TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS 
3 
5787 3 
5786 3 
5789 3° 
5790 035332 BGNTST 
035332 T4:: 
5791 035332 012737 006356 002170 MOV @EPRT1,EPRTSW ;SET UP PRIMARY ERROR MESSAGE 
5792 035340 005037 003124 CLR KTENABLE ;TURN OFF KT11 
5793 035344 004737 017364 JSR PC.KTOFF TURN KT11 OFF 
5798 035350 012700 047342 MOV @TST24ID,RO ;ASCII MESSAGE TO IDENTIFY TEST 
5799 035354 004737 016600 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
5800 035360 004737 022206 JSR PC. MEMCK : CHECK FOR MEMORY 
5801 035364 005037 003126 CLR NXMFLG 3SET FLAG 
3802 035370 012737 000005 002206 MOV @5,LOOPCNT ;PERFORM 5 ITERATIONS 
3¢ 
5804 3 
5805 ;TEST 4, SUBTEST 1 
5806 3 


5807 3 








TEST 4: BASIC 


8 
5819 035376 
5620 0 


5844 035504 
5845S 035512 
5846 


$851 
58 
5853 035516 
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READ DATA (FORWARD AND REVERSE) 
sVERIFIES THAT A READ DATA COMMAND WITH 


THE CLEAR 


sVOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE 
ET. ALL LEG 


sVOLUME CHECK (VCK) IS SET AL 
sCOMBINATIONS OF THE COMMAND MODE FIELD 
IT IS VERIFIED THAT THE COMMAND 


ARE TESTED 
IS REJECTED 


s(I.€. 
:OUE TO VcK te. RATHER THAN ERRONEOUS DECODING 


sOF THE MODE F 


SEQ 0136 


T24L00P 
BGNSUB >> >>>>>>>>>> — SUBTEST >>>>>>>>>>>> 
104402 “TRAP = C$BSUB 
004737 047410 JSR PC, T24REST 3SET COMMAND PACKET 
004737 047544 JSR PC, T24RTS 3SET UP OTHER COMMAND PACKET 
004737 047502 JSR PC, T24RT2 sSET UP OTHER COMMAND PACKET 
C12737 176750 045076 MOV #65000. , T24DLY sLOAD UP DELAY ROUTINE 
FPRRHAAHEEEEEREEEREEESEEEEEEEEEEEEEEESEEDEEDEDEEOEDEEEEEESEEESEEESEEE 
i 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
j ROdeeeedasaseasacsacasccseseacaceasesesseccsesecsesecscsosoeseses 
004737 016064 S$: JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER 
103426 BCS 20% ;BR IF INIT WAS OK 
DELAY 250 sDELAY AWHILE 
012727 000250 MOV @250,(PC)+ 
000000 . WORD 
013727 002116 MOV LSOLY,.CPC)+ 
000000 . WORD 
005367 177772 DEC -6(PC) 
001375 BNE 74 
005367 177756 DEC -22(PC) 
001367 BNE --20 
005337 045076 DEC T24D0LY ;BUMP DELAY COUNTER 
001356 BNE 3BR, IF MORE DELAY REQUIRED 
005237 002212 INC FATFLG ;BUMP COUNT 
010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR, SF IMSG iFATAL ERROR TSSR WAS NOT OK 
104455 TRAP CSERDF 
000621 - WORD 401 
003650 - WORD SFIERR 
012124 208 -WORD SFI 
012737 0v0007 044740 ’ MOV @7,T240SW sSET DRIVE NUMBER IN PACKET 
012704 044720 MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
OOOO OSEESEOESEEEEEEEEEEEEEEEEEOOEEEEEEDEEEEEEEEEEEEEEEEEEEEEEEEDE 
i 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
, SHSEEEEESSEESSEEESEASSASEEEEEESEESEEEEEEEEEEEEEEOESEEODEEEEEEEEEDEEE 
004737 010752 JSR PC, WRTCHR sISSUE WRITE CHARACTERISTICS 


a 
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| SEQ 0137 
| TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
$854 035522 103407 Bcs 24% :8R, IF COMMAND ISSUED OK 
5855 035524 005237 002212 INC FATFLG ;BUMP COUN 
5859 035530 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
5860 035532 ERRHRD ERRNO, WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
035532 104456 TRAP §CSERHRD 
035534 000622 -WORD 402 
035536 005054 “WORD WRTMSG 
035540 012124 “WORD SFIMSG 
5861 035542 005737 002216 24%: TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 
3862 035546 001044 BNE 50$ ;6R IF SWITCH IS ON 
5864 035550 112737 000200 045061 MOVB 200,T248S1 ;WRITE MISCELLANEOUS CONT/READ STATUS 
5865 035556 112737 000010 045060 MOVB 10, 124850 ;FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
5866 0 012704 045030 MOV @T24PK2,R4 ;WRITE SUBSYS MEM PACKET 
5867 035570 010465 000000 MOV R4, TSDBCRS) ; ISSUE 
35574 004737 016426 “ ;WAIT FOR SSR 
35600 103407 8cs :BR, IF NO ERROR 
5870 035602 1 MOV RO,R1 ;ERROR, SAVE TSSR 
5871 035604 37 002212 INC FATFLG ;BUMP COUNT 
5875 035610 ERRHRD ERRNO, T24SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
035610 104456 TRAP  CSERHRD 
035612 3 .WORD 403 
035614 easel? "wORD T24SSR 
035616 012136 “WORD PKTSSR 
5876 035620 308: CKLOOP ;LOOP IF SELECTED te 
035620 104406 AP —s-s« CSCLP1 
5877 035622 012737 000007 044740 MOV 07,T240SW ;SET ORIVE NUMBER IN PACKET 
3678 035630 012704 044720 MOV @T24PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
5880 PEAKE RHEAKRAAARRE EKER ERERRAAAEAEARERARAREEKEEAEEADEEEEMEREEBEH 
5681 3 
3882 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3 
sees SRERERAEARAREEERHE EEA RAREARAAEARKEKEARHRAEARARAERERAAARRAERRARHHARREREEE 
5886 035634 004737 010752 JSR PC,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
5887 035640 103407 BcS 50% 38R, IF COMMAND ISSUED OK 
5888 035642 005237 002212 INC FATFLG ;BUMP 
5892 035646 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
5893 035650 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
035650 104456 TRAP  CSERHRD 
035652 000624 WORD 404 
035654 005054 ‘WORD WRTMSG 
035656 012124 7WORD SFIMSG 
5894 035660 50$: CKLOOP :SCOPE LOOP 
035660 104406 TRAP LC SCLP1 
5895 035662 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
5896 035666 032701 0v0100 BIT @OFL,R1 ;CHECK FOR THE OFFLINE BIT SET 
5897 035672 001006 BNE 60$ 38R, IF OFFLINE (GOOD) 
5898 035674 005237 002212 INC FATFLG ;BUMP COUNT 
5902 035700 ERROF ERRNO, T240FL,SFIMSG ;0FF LINE SHOULD HAVE BEEN SET (BAD) 
035700 104455 TRAP CSEROF 
035702 000625 .WORD 405 
035704 046375 "WORD T240FL 
035706 012124 "WORD SFIMSG 
5903 035710 608: CKLOOP ;LOOP IF SELECTED 


035710 104406 TRAP CscLP1 
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| SEQ 0138 | 
TEST 4: BASIC READ DATA CFORWARD AND REVERSE) 
see 035712 012703 045066 MOV @T24RN,R3 sPOINTER FOR COMMANDS 
soos FRRRAKAHAERESEEESSEEESEERESEESELEREEEASAERESEEASEEAESESEREDSESEESESES 
3 
5908 s TAPE READ COMMAND IN PLACE 
Hy 
33i0 SPESEHASEESEEESEESESESEESEESERERERSEEEAEEEEESEASESESSEESESEEEEEESESEES 
5912 035716 011337 045050 65%: MOV CR3), T24PK3 sTAPE READ COMMAND IN PLACE 
5913 035722 012704 045050 MOV OT24PK3 R4 3R4 = POINTER TO PACKET 
5914 035726 010465 000000 MOV R4, TSDBCRS) s ISSUE COMMAND 
5915 035732 004737 016340 JSR Teaecke sMAIT FOR SSR TO SET 
5916 035736 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
5917 035742 012702 100306 MOV @SSR!SC 'OFL!BIT1!BIT2, Re’ sSET UP EXPECTED 
5918 035746 020102 CMP R1,R2 3s ARE THEY EQUAL 
5919 035750 001406 BEQ 80% iB. IF OK ESP. FUNCTION REJECT 
5920 035752 005237 002212 INC FATFLG OUNT 
$924 035756 ERRHRD ERRNO, T24TM,PKTSSR iTSSR INCORRECT AFTER TAPE MOTION CMD 
035756 104456 TRAP CSERHRD 
035760 000626 .- WORD 406 
035762 046133 "WORD T24TM 
035764 012136 - WORD PKTSSR 
5925 035766 80$: CKLOOP ;LOOP IF SELECTED 
035766 104406 TRAP CSCLPi 
5926 035770 0057235 TST CR3)+ ;BUMP TO NEXT COMMAND 
5927 035772 022713 177777 CMP 177777,CR3) sEND OF THE COMMANDS YET 
$928 035776 001401 BEQ 90% 368R, IF DONE 
5929 036000 000746 BR 65¢% sMORE COMMAND(S) TO GO 
5930 036002 90%: 
5931 036002 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
036002 L10053: 
036002 104403 TRAP CsESuB 
5932 036004 023727 002212 000017 CMP FATFLG,#@15. :IS ERROR COUNT AT 25 
5933 036012 103402 BLO 999% ;6R, IF LESS THAN 25 
5934 036014 004737 017272 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
5935 036020 999%: 
5936 
5937 3* 
59368 3 
4444 sTEST 4, SUBTEST 2 
940 3 
5941 sVERIFIES THAT READ FORWARD COMMANDS WITH SWB=0 
5942 sOPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 
5943 sWRITTEN WITH A SERIES OF TEST RECORDS VARING IN 
5944 ;LENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND 
5945 sAGAIN AND THE RECORD READ SEQUENTIALLY AND RESULTS 
5946 sCSTATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON 
5947 ;EACH H READ FORWARD COMMAND Is SET TO THE LENGTH OF THE 
5948 sEXPECTED RECORD, SO NO EXCEPTIONAL — IONS SHOULD 
Fos sOCCUR. 
950 3 
5951 : ~ 
5952 Hy 
5953 a 
5954 036020 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.2: 


036020 23 
036020 104402 TRAP C$BSUB 





es ew: 
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aa 
6007 036146 


003650 
C12124 
013737 
012704 


005054 
012124 
104406 


047544 
047410 
047502 


016064 
002212 


002172 
044720 


010752 
002212 


011104 


002212 
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044740 


JSR PC, T24RTS sSET UP OTHER COMMAND PACKET 
JSR PC, T24REST sSET COMMAND PACKET 
JSR PC, T24RT2 sSET UP OTHER COMMAND PACKET 


{CRRERERESEESEESEEESEESEEESEEEEEEEEESEESSEEESEESEESEESEEEEEESEESESE 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
SSSHAAASSSEAASESSEAESSSEEEASESAAHESSSEESESEESESESSESESESEEEEESEEESES 


JSR PC, SOF INIT 300 para ON CONTROLLER 

BCS 20% 36R IF INIT WAS OK 

INC FATFLG BUMP COUNT 

MOV RO,R1 ;CONTENTS OF TSSR REGISTER 

ERROF ERRNO, SFIERR,SFIMSG SFATAL ERROR TSSR WAS a 
- WORD 
- WORD 
- WORD 


20%: 
MOV UNITN, T240SW 
MOV @T24PACKET ,R4 
| OROODEEEEEEEES 4O6600600606060006006066600650060660000060000600000008 
3 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
J SERASHESEASSAESSESHESSESSESEASSHSESASSESSSSASSESHESSASAESEESEESEEEEES 


sSET DRIVE NUMBER IN PACKET 


JSR PC..WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 24% 3BR, IF COMMAND ISSUED OK 
INC FATFLG ; OUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC a 
- WORD 
- WORD 
WORD 
24%: CKLOOP sLOOP IF SELECTED 
TRAP 


$ OROEEEEEEEEEEEEEEEEEEEEEEEEEEEEDEDEEEEEEEEEOEOO6600060000000000088 
; 
sISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


3 
FPRAAEAESAEAHEAEEEHEREAEKAEASESEEAESSHSSESSAKEAKEASHESEASESSERESASSEEE 


JSR PC REWIND sCALL_TAPE REWIND COMMAND 

Bcs 30% sR, IF NO PROBLEM 

MOV pa Pilg sSAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED a 
- WORD 
. WORD 
- WORD 


30%: CKLOOP sLOOP IF SELECTED 


SEQ 0139 


re 


CSEROF 
407 

SFIERR 
SFIMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 


CSERHRD 
409 
T24RWN 
PKTSSR 
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i 


036146 


104406 


013701 


104406 
012703 
013737 


012737 
0127 


000400 
003114 


140005 
045050 
017512 
045056 
000000 
016340 
000002 
000200 


002212 


000414 
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045052 


045050 


SEQ 0140 


TRAP CsCLPi 
| PERSOSESEEEEEEEESEEEEEESEEEESEEEESEEESESSEEESESESESESEEESEEESEEEEE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


i 
{ SRHSAAASSSASAHSSSSAESSSSESSESSESEEESSEEEHEEEESSESESSSSSSESESSEEESEEESE 


MOV T24BFR+6,R1 ;PICK UP XSTO 
MOV R1,R2 3SET UP EXPECTED 
BIS eaiti, R2 SET BOT BIT_IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 404 i@R, IF EQUAL (OK) 
INC FLG ;BUMP COUNT 
ERRHRD ERRNO T24B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP § CSERHROD 
.WORD 410 
“WORD T2480T 
“WORD EXPREC 
40%: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
MOV 0256. .R3 :RECORD SIZE 
MOV FREE. T24RB ;STARTING WRITE BUFFER ADDRESS 
J SSHSSSSSHESAESSHSEASSASEESSESESRSESSSESSSSSESSSASSSESSSSESESSESSESEESE 
3 
;WRITE DATA,CVC=1,ACK COMMAND 
: 
{ SSHSSHASESESESESEASESESSESSSESESSESHSSESESSSSESESSSESSESESESESESEEESEEEEES 
MOV #140005, T24PK3 ;WRITE DATA,CVC=1,ACK COMMAND 
aa MOV OT24PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 
MOV R3,RO :SET PATTERN IN CORRECT REGISTER 
JSR PC.FILLMEM ;FILL MEMORY WITH RECORD SIZE 
MOV R3,124SZ ;SET UP RECORD SIZE IN PACKET 
MOV R4. TSOBCRS) ;ISSUE COMMAND 
JSR PC. WAITF ;WAIT FOR SSR TO SET 
MOV TSSR(RS). RI ;GET TSSR CONTENTS 
MOV @SSR,R2 : XPE 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 75% BR, oK 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR iTSSR INCORRECT AFTER WRITE DATA 
TRAP  CSERHRD 
.WORD 411 
"WORD © WRTERR 
"WORD PKTSSR 
75$: CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 
TST (R3)+ ;BUMP RECORD SIZE 
CMP $268. .R3 ;END OF RECORD YET 
BNE 65% 36R, IF MORE RECORDS TO WRITE 
808: CKLOOP ‘LOOP IF SELECTED 
1208 TRAP = CSCLP1 


ae 
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: SEQ 0141 
“TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
| 544 J SCHSSESSHESSASSASSHSSSESSESSSAESSESSSESSESESASSSESSESSEESSESSEESEESES 
! 3 
| $968 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE | 
Sess ; SECESESSEASSHSEEEEENS SEEKS SEAEHASCEEESESSSESSSHSESESEKESEESESSEEEEEE | 
6065 036316 004737 011104 JSR —s- PC, REWIND CALL TAPE REWIND COMMAND | 
6066 036322 004737 016426 ‘SR «PC. CHKTSSR SEE HOW TSSR IS 
6067 036326 103407 Bcs 1308 i8R, IF NO PROBLEM 
6068 036330 010001 MOV «RO, RA SAVE TSSR 
6069 036332 005237 002212 INC FATFLG }BUMP COUNT 
6073 036336 ERRHRD ERRNO, T24RWN,PKTSSR ‘REWIND NOT ACCEPTED 
036336 104456 TRAP — CSERHROD 
036340 0006 ‘WORD 412 
036342 "WORD T24RUN 
036344 012136 “WORD PKTSSR 
6074 036346 130%:  CKLOOP LOOP IF SELECTED 
go7s CSE 108406 TRAP —- CSCLP1 
eors PSPS OAREAEEAEAHEREHORHEASSALEAKREGEHRAELE HD HHAGLEAAAMRAAAKEEREDALASSSHAASOH 
6078 READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
6081 : SESESEHSAHSSASSS SESSSSSASHSSESSSSSAEASSSSSESSESESSEESESESSEEEKESESEEEEEEE 
6082 036350 013701 044750 MOV —s-«s T24BFR+6,R1 PICK UP XSTO 
6083 036354 010102 HOV —s«R}1. R2 SET UP EXPECTED 
6084 036356 052702 000002 BIS @BiT1,R2 SET BOT BIT IN EXPECTED 
6085 036362 020102 CHP séRRR2 {DOES EXP = REC'D 
001406 BEQ  -:1408 ‘BR. IF EQUAL (OK) 
6087 036366 005237 002212 INC _—s*FATFLG ‘BUMP COUNT 
6091 036372 ERRHRD ERRNO, T24B0T,EXPREC TAPE NOT AT GOT AFTER REWIND 
036372 1046456 TRAP  CSERHRO 
036374 000635 \WORD 413 
036376 045723 "WORD T2480T 
015564 "WORD  EXPREC 
6092 036402 140%: | CKLOOP :LOOP IF SELECTED 
 O36402 104406 TRAP CSCLP1 
6093 036404 012703 000400 MOV —s--@256., R3 RECORD SIZE 
6094 036410 013737 003114 045052 MOV —s- FREE. T24RB STARTING READ BUFFER ADDRESS 
soss 3 868666666606 666666666666666866666866668666664666666668666686E686646668688 
6098 READ DATA,CVC#1,ACK COMMAND 
rey : SaBSKEKEHEREELESHRRALSEHKAKEARKARBHREKRSAEHEDKESHDARRAEAASKABRAESESHESAAS 
6102 036416 012737 140001 045050 mov #140001. T24PKS sREAD DATA. CVC@ ACK 
6108 036424 012704 045050 1658: MOV  @T24PKS.R EET Ur na GET PACKES SS 
6104 036430 010337 045056 ro Oté«dS aaa TET UP RECORD SIZE IN PACKET 
6105 036434 010465 000000 MOV —s- R4& TSDBCRS) ISSUE COMMAND 
004737 016340 JSR —s- PCL WAITF WAIT FOR SSR TO SET 


6106 036440 
6107 036444 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
12702 @SSR ,R2 SET UP EXPECTED 





| TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC 
6115 036464 
036464 


36466 
036470 
36472 

6116 036474 
36474 


6117 036476 003114 
502 


002212 


000412 


002212 
017272 


6140 036 

6141 036572 

6142 036574 
3 036600 


104402 
6158 036602 004737 047544 
6159 036606 


0047357 047410 
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READ DATA (FORWARD AND REVERSE) 


SEQ 0142 
ERRHRD ERRNO, ROERR,PKTSSR sTSSR INCORRECT AFTER READ spate os 
- WORD 414 ' 
; WORD 
[WORD PKTSSR 
170%: CKLOOP ;LOOP IF SELECTED comee 
MOV FREE .R2 :GET BUFFER ADORESS 
MOV R3,R4 sCURRENT RECORD SIZE 
SUB 0256. .R4 FIRST LOCATION IN BUFFER 
173%: ADD R2,R4 3GET LOCATION IN BUFFER (ADORESS) 
CMP (R4),R3 1 CHECK DATA READ (R3=DATA ALSO) 
BEQ ‘ :0R, IF ALL IS WELL 
MOV (R4),R1 Reto DATA 
MOV R2 sEXPECTED DATA 
INC FATFLG ;BUMP C 
ERRHRD ERRNO, T240TA, FXPREC ;DATA READ NOT = WRITTEN 
TRAP  CSERHROD 
; 415 
“WORD T240TA 
WORD €EXPREC 
180%: CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 
TST (R4)+ ;BUMP TO NEXT LOCATION 
SUB R2,.R4 :GET BACK TO CORRECT SIZE 
CMP R4,R3 : OF RECORD YET 
BNE 1738 :8R, IF NOT AT END OF RECORD 
TST (R3)+ :BUMP RECORD SIZE 
CHP $266. ,.R3 sEND oF RECORD YET 
BNE 165% F MORE RECORDS TO WRITE 
190%:  CKLOOP + 50P IF SELECTED 
TRAP = C$CLP1 
ENOSUG 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
TRAP CSESUB 
000017 CMP FATFLG, #15. sIS ERROR COUNT AT 25 
BLO 999% i6R, IF LESS THAN 25 
JSR PC, CKDROP sTRY TO OROP THE UNIT 
999%: 
3¢ 
3 
TEST 4, SUBTEST 3 
}VERIFIES THAT READ DATA COMMANDS WITH CVC#1 AND T 
WAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
QUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 
d 
3 
b 
ge 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
eve 
TRAP CSBSUB 
JSR PC, T24RTS ;SET UP OTHER COMMAND PACKET 
JSR PC, T24REST 3SET COMMAND PACKET 
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| 


SEQ 0143 


6160 036612 004737 047502 JSR PC, T24RT2 :SET UP OTHER COMMAND PACKET 

eise t SEESOSHHSHSSSSASSAHSSSSSASSSASSSSHSSSSSHSESSSHSSSEKESEHSSEHSSSSEEESESE 

6164 }ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

sits ; RERHKASREREAKASSAKGRAHARAAKERHASCSASKRHMHAKEDASSHASASSHRECHAROBARESKAKSR 

6168 036616 004737 016064 JSR PC, SOFINIT 100 INITIALIZE ON CONTROLLER 

6169 036622 103407 Bcs 208 1BR IF INIT WAS OK 

61 os6634 005237 002212 INC FATFLG 

6174 010001 MOV RO,R1 }CONTENTS OF TSSR REGISTER 

6175 os6652 ERROF ERRNO, SFIERR,SFIMSG SFATAL ERROR TSSR WAS NOT OK 
0 104455 TRAP  CSEROF 
036634 : 416 
036636 003650 s SFIERR 
036640 012124 , SFIMSG 

6176 036642 208: 

6177 036642 13737 002172 044740 HOV UNITN. 1240S :SET ORIVE NUMBER IN PACKET 

6178 036650 012704 044720 MOV 24PACKET, sSUBROUTINE NEEDS PACKET ADORESS 

$389 t AEKKASELESESAOSMARHHESAABKKAREHSESHKSASSSASHSAHRSHRAEDASERERASASASALS 

6182 . {WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

oi33 : SESSSSSESESSSHSSSSSE SESESESEEEESESESESEESSESEESSSEEEEEEEEEEEEESEEEES 

6186 036654 004737 010752 JSR PC .WRTCHR sISSUE WRITE CHARACTERISTICS 

6187 036660 103407 Bcs 246 1BR IF COMMAND ISSUED OK 

6188 036662 005237 002212 INC FATFLG 

6192 036666 010001 MOV RO,Ri }SAVE CONTENTS OF TSSR 

6193 036670 ERRHRD ERRNO, WRTMSG, SFINSG ;WRITE CHARACTERISTISC FAILED 
036670 104456 CSERHRO 
036672 000641 "Goro 417 
036674 “WORD URTMSG 
036676 012124 “WORD  SFIMSG 

6194 036700 24%:  CKLOOP sLOOP IF SELECTED 

atte 036 104406 TRAP —s-s« CSCLP2 

sis j SREASKESAEEHS ASHOKEOSLESHSSGAKAEHASSAHKA GSARLSHSHHOHASHKSABASSALBRESD 

6198 TISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 

s00 . CEOAHASLASGHSHH VE DASLASAREAAS4LSSHSEHRAASKOSEHASHAOSSHASSHAISEASSHEHSAAKASOSSE 

$202 036702 0046737 011104 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
036708 03407 ecs 303 108, IF NO PROBLEM 

6208 036710 010003 my RO, R1 sSAVE TSSR 
036712 005237 002212 INC FATFLG s8UMP COUNT 
0367 ERRHRO ERRNO, T24RWN,PKTSSR ;REMIND NOT ACCEPTED 
036716 104456 TRAP  CSERMROD 
036 .WORD 418 
036 "WORD T2aRun 
036 012136 "WORD PKTSSR 

6210 036 308:  CKLOOP sLOOP IF SELECTED 

TRAP —s«COCL PA 
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6212 
6213 
6214 
6215 
6216 
6217 
6218 036730 013701 044750 MOV 
6219 036734 010102 MOV 
6220 036736 0527 000002 BIS 
6221 036742 020102 CMP 
6222 036744 001406 BEQ 
6223 036746 005237 002212 INC 
6227 036752 
036752 104456 
036754 000645 
036756 0457235 
036760 015564 
6228 036762 40$: CKLOOP 
036762 104406 
6229 036764 012703 000400 MOV 
eez0 036770 013737 003114 045052 MOV 
62 
6233 
62 
6235 
6236 
6237 
6238 036776 012737 150005 045050 MOV 
6239 037 012704 045050 MOV 
6240 037010 ~ 658: ; 
6241 037010 010300 MOV 
037012 004737 017512 JSR 
6243 037016 010337 045056 MOV 
6244 037022 010465 000000 MOV 
6245 037026 004737 016340 JSR 
6246 037032 016501 000002 MOV 
6247 037036 012702 000200 MOV 
6248 037042 102 CMP 
6249 037044 001406 BEQ 
6250 037046 005237 002212 INC 
037052 
037052 104456 
037054 
037056 005111 
037060 012136 
6255 0370c2 7S$: CKLOOP 
037062 1044 
037064 0095723 TST 
6257 037066 022703 000414 CMP 
037072 0013546 BNE 
6259 037074 80%: CKLOOP 
037074 104406 
6260 037076 1208: 
6261 





MACRO YOS.02 Monday 16-Sep-85 13:41 Page 77-40 


ene C—O Ci* 


SEQ 0144 


f SHSSAAAASSHESSESAEAASSHASSSEAAESSEAESESAEESSESSESESEASESSEESESSEEEESESD 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
SAEAHRAASASAASSSEASSESSAAASESAASESEAESERESRESOHESESEEESESESESESESEEESE 


T24BFR+6,R1 


1,R2 
B1T1,R2 
R1,R2 


40% 


FATFLG 
ERRNO, T24B0T , EXPREC 


0256. ,R3 
FREE, T24R8 


sPICK UP XSTO 

sSET UP_EXPECTED 

sSET BOT BIT_IN EXPECTED 
s;D0ES EXP = REC'D 

+t IF EQUAL (OK) 


UMP 
i TAPE NOT AT BOT AFTER REWIND 
TRAP 


CSERHRD 
-WORD 419 
-WORD T24B0T 
WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLP1 


sRECORD SIZE 
sSTARTING WRITE BUFFER ADORESS 


FESSHHSAASASSEASSESASESSSAESESSEHASHSSESSSSSKESSHSESSHESSESSESEEKEEEESEE 


;WRITE DATA, ACK,SWB,CVC=1 COMMAND 


; 
J SSSASSHASSHSSASSHSEASSSSESSAASSHSHESSESASSEASSSSSSSHSSSSHSSEESESESEESEE 


#150005, T24PK3 


@T24PK3,R4 


R3,RO 

PC .FILLMEM 
R3,T24SZ 
R4, TSOBCRS) 
PC ,WAITF 
TSSRCRS),.R1 
@SSR ,R2 


75% 


FATFLG 
ERRNO ,WRTERR ,PKTSSR 


C(R3)-« 
#268. ,R3 
65% 


sWRITE DATA,ACK,SWB,CVC=1 COMMAND 
;SET UP R&4 WITH PACKET ADDRESS 


sSET PATTERN IN CORRECT REGISTER 

sFILL MEMORY WITH RECORD SIZE 

s;SET UP RECORD SIZE IN PACKET 
OMMANO 


s ISSUE 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
;SET UP EXPECTED 

3 THEY EQUAL 


sBUMP RECORD SIZE 


;BR, IF OK 
;BUMP COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 420 
-WORD WRTERR 
.WORD wKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPi 
sEND OF RECORD YET 
;8R, IF MORE RECORDS TO WRITE 
;LO0P IF SELECTED 
TRAP CSCLPi 


FSSSAASSNSSSSSSSSSSSSSSHSSSSSESSHSSSSSSSSSSSSSSSSSSSSSESSSSSSESESSEEEEE 
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037076 


: 


6304 037172 
305 037200 


013701 
010102 


104406 
012703 
013737 


012737 


011104 


002212 


000400 
003114 
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045052 


045050 


s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


3 
§ SHSSSSHSSSSSSSSSHSHSHSSHSSSSSSHSSSSESSHSHSSSSHESHSSSSSSSSSESESSESSSSEEEE 


JSR PC REWIND ;CALL TAPE REWIND COMMAND 

Bcs 1308 ;6R, IF NO PROBLEM 

MOV RO,R1 ;SAVE TSSR 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T24RWN,EXPREC ;REWIND NOT ACCEPTED 
TRAP CSERHRD 
. WORD 1 
"WORD T24éRUN 
“WORD  €EXPREC 

130%:  CKLOOP ;LOOP IF SELECTED 

TRAP —s-_:« CSCLP1 


F SSSSSSSSSSSSSSSSHSSSSSSSSSSSSSSSSESSSSSHSSSSSSESSSSSSSESSESESEESESESE 


TREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


. 
F SSSSSSSSSSSSHSSSSSHSSSSSSSSHESSSSSEHSSSSSESSESSSSSSESSSSSSSESESESEEES 


MOV T24BFR+6,R1 or UP xsTO 

MOV R1,R2 ;SET UP _ EXPECTED 

BIS @BIT1.R2 iSET BOT BIT IN EXPECTED 

CMP R1,R2 sD0ES EXP = REC'D 

BEQ 1408 BR. IF EQUAL (OK) 

INC FATFLG ;BUMP COUN 

ERRHRD ERRNO, T24B80T ,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRO 
-WORD 422 
-WORD T24B80T 
-WORD EXPREC 

140%: CKLOOP ;LOOP IF SELECTED 

TRAP CsCLPi1 

MOV 0256. .R3 sREC 


ORD SIZE 
MOV FREE. T24R8 ;STARTING READ BUFFER ADDRESS 
§ SSSSSSSSSSESSSSHSSSSSSSSESSSHSSESSSSSSSSSSSSSS ASSESSES SESESEEESEEEEEEES 
TREAD DATA,IE,ACK,SWB COMMAND 


a 
,SAREAHHKAAREAHKHAALHSSAHDAAHAHAKAHEAAHAAHESEOKKEHEEESELARDEEREHR HK ASHKEDHAEGAS 


MOV #110001, T2apKs :READ DATA, IE.ACK,SWB COMMAND 
165%: MOV @T24PK3.R ;SET UP R4 WITH PACKET ADORESS 

MOV RS toas? ;SET UP RECORD SIZE IN PACKET 

MOV R4. TSOBCRS) ; ISSUE 

JSR C.WAITF ;WAIT FOR SSR T 

MOV TSSR(RS),R1 :GET TSSR CONTENTS 

SR, ;SET UP EXPE 

CMP R1.R2 ;ARE THEY EQUAL 

BEQ 1708 :6R, IF 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, RDERR,PKTSSR ;TSSR INCORRECT AFTER READ ADATA 


CSERHRD 
423 


SEQ 0145 


me - ee 
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SEQ 0146 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
037244 005204 . WORD RR 
037246 012136 -WORD PKTSSR 
6318 037250 1708: CKLOOP ;LOOP IF SELECTED 
037250 TRAP CSCLPi 
6319 037252 013702 003114 MOV FREE ,R2 ;GET BUFFER ADDRESS 
6320 037256 010304 MOV R3,R4 ;CURRENT RECORD SIZE 
6321 037260 162704 000400 sus 0256. oR4 FIRST ite IN BUFFE 
037264 060204 1738: AOD R2,R4 :GET LOCATION IN BUFFER CADORESS) 
j 037 021403 CMP CR4),R3 ;CHECK DATA READ (R3=DATA ALSO) 
| 6324 037270 001410 BEQ 1808 3;6R, IF at IS WELL 
6325 037272 011401 MOV (R4),R1 sRE DAT 
6326 037274 0103502 MOV R3,R2 EXPECTED MOATA 
! 327 037276 905237 002212 INC FATF FLG OUN 
6331 037302 ERRHRD ERRNO, T240TA,EXPREC iDATA READ NOT = WRITTEN 
37302 104456 TRAP CSERHRD 
037304 0006 , 424 
7306 045770 . WORD T240TA 
037310 015564 -WORD EXPREC 
6332 037312 160%: CKLOOP ;LOOP IF SELECTED 
37312 1 TRAP CSCLP1 
6333 037314 005724 TST (R4)> ;BUMP TO NEXT LOCATION 
6334 037316 160204 Su8 R2,R4 ;SET SIZE TO ~~ VALUE 
6335 037 020403 CMP R4,RS sEND OF RECORD 
6336 037322 001360 BNE 1738 ;BR, IF NOT AT END OF RECORD 
6337 037324 005723 TST CR3)« ;BUMP RECORD SIZE 
6338 037326 022703 000412 CMP #266.., sEND OF RECORD YET 
6339 037332 i BNE 1658 ;B8R, IF MORE RECORDS TO WRITE 
340 037334 1908: CKLOOP ;LOOP IF SELECTED 
037334 104406 TRAP CSCLPi 
6341 037336 ENDSUB 3>>>>>>>>>>2>> END SUBTEST >>>>>>>>>>>> 
037336 L10055S: 
O373%6 TRAP CsESuB 
6342 037340 023727 002212 000017 CMP FATFLG,@15. :IS ERROR COUNT AT 25 
6343 037346 103402 BLO 999% 38R, IF LESS THAN 25 
6344 037350 004737 017272 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
6345 037354 999%: 
6346 
6347 3° 
6348 8 
root ‘ened 4, SUBTEST 4 
6351 VERIFIES TH THAT A READ FORWARD COMMAND READING A RECORD 
6352 ;LONGER THE SPECIFIED BYTE COUNT CAUSES TAPE 
6353 + STATUS ALERT a ae WITH THE RECORD LENGTH LONG 
6354 s(RLL) BIT SET 
6355 3 
6356 3 
6357 3° 
6358 
6359 037354 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
037354 14.4: 
037354 104402 TRAP Cs6SuUB 
6360 037356 004737 047544 JSR PC. T24RTS 3SET UP OTHER [pee PACKET 
6361 037362 004737 047410 JSR PC, T24REST 3SET COMMAND PACK 
Her | 037366 004737 047502 JSR PC, T24RT2 iSET UP OTHER COMRAND PACKET 
6364 s OOCOOEEESSESEESEESEEESEEEEESSEEEEESEEEEEDESHEHEEEEESEEEEESEEEEEEEE 
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SEQ 0147 


6365 
6366 }ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
e388 PTT TT TTT TTT TT TT TTT TT TESTI TTT TTT TTT TTT TTT TTT TTT TTT TTT 
6 
6370 O37372 004737 016064 JsR PC, SOF INIT ;00 INITIALIZE ON CONTROLLER 
6371 037376 103407 Bcs 208 ;B8R IF INIT WAS OK 
| 6372 037400 005237 002212 INC FATFLG ;BUMP COUNT 
6376 037404 010001 MOV RO.R1 }CONTENTS OF TSSR REGISTER 
6377 037406 ERROF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
037406 104455 CSEROF 
037410 000651 : 425 
037412 003650 "WORD SFIERR 
037414 012124 “WORD SFIMSG 
6378 037416 208: 
6379 037416 013737 002172 044740 MOV UNITN, T240SW ;SET ORIVE NUMBER IN PACKET 
6380 37 012704 044720 MOV @T24PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
ret | 3 SSSSSSASSSSSASSHSSSHSSSSSSHSSAESSSASSHSSSSSSSSSSSHHSESSESKESEESESESE 
6384 {WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
oss PTT TT TOTTI TTT TTT TOTTI TTT TTT TTT TTTTTTTT TTT TTT TTT TTT TTT TTT TTT TT TTT 
6388 037430 004737 010752 JSR PC .WRTCHR ;ISSUE WRITE CHARACTERISTICS 
6389 037434 103407 Bcs 24s ;8R, IF COMMAND ISSUED OK 
6390 037436 005237 002212 INC FATFLG ;BUMP COUNT 
6394 037442 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
6395 037444 ERRHRD ERRNO, WRTMSG, SFIMSG iWRITE CHARACTERISTISC FAILED 
037444 104456 CSERHRD 
037446 0006 "NORD 426 
037450 [WORD WRTMSG 
037452 012124 "WwORD SFIMSG 
6396 037454 248: CKLOOP ;LOOP IF SELECTED , 
aes 037454 104406 TRAP = CSCLP1 
tt 4 F SSSHSSHKSASSSSSSSSSASSSLEHSSSSEHSSSASSESSHSSSSSSHSSSSSEKSHSSSSSEKESEE 
6 
6400 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
oe | WPOTTT TOTTI TTT TTTTTTOTTTTTTTTTTTTTTTTTTTTTTTTTT TTT TTT TTT TTT TTT TTT 
640 
6404 037456 004737 011104 JSR PC ,REWIND CALL TAPE REWIND COMMAND 
6405 037462 103407 Bcs 30% NO PROBLEM 
6406 037464 010001 MOV RO,R1 SAVE TSSR 
6407 037466 005237 002212 INC FATFLG ;BUMP COUNT 
6411 037472 ERRHRD ERRIIO, T24RWN,PKTSSR }REWIND NOT ACCEPTED 
037472 104456 TRAP  §CSERHRO 
037474 000653 .WORD 427 
037476 "WORD T 
037500 012136 "wORD PKTSSR 
6412 037502 308: CKLOOP ;LOOP IF SELECTED 
heii 037502 104406 TRAP  CSCLP1 
a3 J SSSSSASSSSSSSSESSESSSSSHSSSSSASSSESASSESESSESSESSSEESESASSESSEEEEEEE 
6416 READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
EE 
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013701 


104406 
012703 
32 037544 013737 


012737 
012704 


010337 


001000 
003114 


140005 
045050 


045056 
000000 
016340 
000002 
000200 


002212 


011104 


002212 
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045052 


045050 


a 
S SHASAAASASHSASASAASEESASHASEASHESESESESEAESEHSSESESSHSESHSESSEKEESEEEE 


MOV T24BFR+6,R1 

MOV R1,R 

BIS @B1T1,R2 

CMP R1,R2 

BEQ 40% 

INC FATFLG 

ERRHRD ERRNO, T24B80T,EXPREC 
40$: CKLOOP 

MOV #512. ,R3 

MOV FREE . T24R8 


sPICK UP_XSTO 

sSET UP_EXPECTED 

sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 

:BR, IF EQUAL (OK) 


;BUMP COUNT 
i TAPE NOT AT BOT AFTER — 


CSERHRD 
-WORD 4268 
-WORD T24B0T 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


J SSHASSASSSHSHASSSHSSASHEASESASAAESSSESSSESSSSSSSESSSSSSSESASESSSEEEEEEE 


;WRITE DATA, ACK,CVC=1 COMMAND 


é 
FSASESAAESAKASSSERAASESESASSSASASHSASESSASESSSHKSSAAESSESSESSASSESESESEE 


MOV #140005 , T24PK3 

MOV @T24PK3,R4 
65$: 

MOV R3,T24SZ 

MOV $s 108 RS) 

JSR AITF 

MOV TSeRc R5),R1 

MOV @SSR ,R2 

CMP R1,R2 

BEQ 

INC FATFLG 

ERRHRD ERRNO,WRTERR,PKTSSR 
75$: CKLOOP 
120%: 


sWRITE DATA,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 
s ISSUE C 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

iSET UP EXPECTED 

sARE THEY EQUAL 

3;BR, IF 


;BUMP COUNT ‘ 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
. 829 
-WORD WRTERR 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 


| SOREOEEEEEEEEEOEEEEEEESEEEEEEEEEEEEEEEEEEOOD80000006000000000000008 
i 
s; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


Q 
PRRRAARARAGEARARAEAARERARLHRASRHACHERAEHAGARHSCARHESEHSREARERHAHELSE EERE 


JSR PC ,REWIND 
6cS 130$ 
MOV 0,R1 


INC FATFLG 
ERRHRD ERRNO, T24RWN,PKTSSR 


sCALL_TAPE REWIND COMMAND 
NO PROBLEM 


COUNT 
; REWIND NOT ACCEPTED 


SEQ 0148 





TSV7 - HARDWARE TESTS 1-8 
| TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


037650 000656 
046206 
037654 012136 


037656 104406 


°o 
w 
ae 
a 
© 


80 037660 013701 


04406 
€%71 037714 012703 
6492 037720 013737 


S00 037726 012737 
2704 


000400 
003114 
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045052 


045050 


30%: CK LOOP IF SELECTED 
. ——. : TRAP —- CSCLP1 


{SRAASAREAAAASASEAASARESESESASALEEEEEEEEEREEEEESSESESERAEEEREEEEEES 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


? 
J RRAAASAESAAASSSEAASSSESEEESEAARESESEEESESSEEESESSESAESSSEEESEESEEEEEEEE 


MOV T24BFR+6,R1 ;PICK UP XSTO 
MOV ;SET UP EXPECTED 
BIS @61T1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 140% iBR. IF EQUAL (OK) 
INC FATFLG 38 
ERRHRD ERRNO, T24B0T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP  CSERHRO 
.WORD 431 
"WwORD T24B0T 
“WORD EXPREC 
140$:  CKLOOP ;LOOP IF SELECTED 
TRAP CS$CLP1 
MOV 6256. .R3 sRECORD SIZE 
MOV FREE, T24RB ;STARTING READ BUFFER ADDRESS 


{ORRERASEERESEEEESERESEEEEEEEEEEEEEEESEEEEDEEESEEOOOE6E006600008888 
; 
sREAD DATA,ACK,CVC=. COMMAND 


3 
FRPHAAAESSSEAAASSSHSSASSSEATESESEESERASESSAAESSSSESSESKSASESESESSSELEE 


MOV #146901, T24PK3 sREAD DATA,ACK,CVC=1 COMMAND 
165%: MOV @T24Pr> _R4 ;SET UP R4 WITH PACKET ADDRESS 
MOV R3,T24SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, Mh Nad s ISSUE C 
JSR P sWAIT FOR SSR TO SET 
MOV Tséne a5), Ri sGET TSSR CONTENTS 
MOV @SSR!SC!61T2,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 170% sBR, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T24TRL,PKTSSR sTSSR INCORRECT AFTER READ DATA 
TRAP LSERHRD 
-WORDB 432 
-WORD T24TRL 
-WORD PKTSSR 
170%: CKLOOP sLOOP IF SELECTED 


TRAP CsCLP1 


| OOO006066006006600000600060660060060060006000000000000800000800008 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


é 
FSSSASAAESSSHASASSHSESSESESSSASESESASSESSASSSEESSHSSESHEKESESSSEAESESSEEE 


SEQ 0149 


a 
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} 
“TEST 4: BASIC 
| 6521 

522 040006 
6523 040012 
6524 040014 


6 

6567 040074 

6568 040100 

6569 040102 

6573 040106 

6574 040110 
040110 


013701 
2 


044750 
010000 


002212 


002212 
017272 


047544 
047410 
047502 


016064 
002212 
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READ DATA (FORWARD AND REVERSE) 


000017 


SEQ 0150 


MOV EseReres. Ri sGET MESSAGE BUFFER | 


MOV R1,R2 3SET UP EXPECTED ! 
BIS o6iTi2, R2 sSET THE RLL BIT IN EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 180% s8R, IF EQUAL CALL IS WELL) 
INC FATFLG ;BUMP COUN 
ERRHRD ERRNO, T24L0N,EXPREC THE RLL BIT WAS NOT SET IN XSTO 
TRAP CSERHRD 
D0 433 
“WORD T24LON 
180% -WORD EXPREC 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10056: 
TRAP CsESUB 
CMP FATFLG,@15. 31S ERROR COUNT AT 25 
BLO 999% ;BR, IF LESS THAN 25 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
999%: 
3¢ 
3 
sTEST 4, SUBTEST 5S 
3 
;VERIFIES THAT A READ FORWARD COMMAND READING A RECORD 
sSHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT 
3 T. IT IS VERIFIED THAT THE RESIDUAL BYTE 
sCOUNT CRBPCR) IN THE SSAGE BUFFER CONTA 
sPROPER NONZERO VALUE (E.G. THE DIFFERENCE BETWEEN 
3 THE — BYTE COUNT AND THE ACTUAL RECORD 
sLENGTH). 
3 
H 
3 
37 
BGNSUB 3>>>->>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
74.5: 
TRAP Cs8SUB8 
JSR PC, T24RTS seer UP OTHER eee PACKET 
JSR PC, T24REST ET COMMAND P 
JSR PC, T24RT2 iSET UP OTHER COMFIAND PACKET 


{ POREOEAESEEEEEEEEESEEEEEDEEEEEEEEEDEEEEOE6006000006000000000008008 
; 
sISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


‘ 
RRR ARERAEARACERARERKRARRAKEARHERALEECEHARHKE KARA EARAAEEREKEAEEER 


JSR PC, SOF INIT 3:00 INITIALIZE ON CONTROLLER 
BCS 20% 3BR IF INIT WAS OK 
INC FATFLG BUMP 


T 
MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
ERROF ERRNO,SFIERR,SFIMSG ;FATAL ERROR TSSR WAS | OK 





| TSV7 - HARDWARE TESTS 1-8 MACRO YOS.02 Monday 16-Sep-85 13:41 Page 77-47 see 0151 
| TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


040112 000662 .WORD 434 
040114 003650 "WORD SFIERR | 
040116 012124 ‘WORD SFIMSG 

6575 040120 208: 

6576 040120 013737 002172 044740 MOV UNITN, T240SW ;SET DRIVE NUMBER IN PACKET 

6577 040126 012704 044720 MOV @T24PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 

Ss°) 3 SRESAAAAAASEASARASSAASAARSESEASAASSEEESSSSEESEEHERESESEESAEEAEEEEEEESE 

t 

6581 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

6583 | seeneccccccccscnscesccccocsccsccsecccssessesccsecsnsonssessossosees 

6585 040132 004737 010752 JSR PC, WRTCHR ;ISSUE WRITE CHARACTERISTICS 

6586 040136 103407 BCS 24% :BR, IF COMMAND ISSUED OK 

6587 040140 005237 002212 INC FATFLG ;BUMP COUNT 

6591 040144 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6592 040146 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
040146 104456 TRAP § C#ERHRD 
040150 000663 .WORD 435 
040152 005054 “WORD WRTMSG 
040154 012124 "WORD SFIMSG 

6593 040156 24%:  CKLOOP ;LOOP IF SELECTED 

eel 040156 104406 TRAP CSCLP1 

Sass FESAAKSAHAAAERAAHRAAEEHAESD LEAHEKAREKAERASEKAHASEKASESAAEASAEESSEHKASASSE KEES 

6597 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

F444 : SHEKKASKHKEKASSESEKASESEEEEEEAKEEEEEEEEEKEKEDEOEEEEEEEESOEEEEEEEEEESD 

6601 040160 004737 011104 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

6602 040164 103407 BCS 303 ;BR, IF NO PROBLEM 

6603 040166 010001 MOV RO,R1 ;SAVE TSS 

6604 040170 005237 002212 INC FATFLG ;BUMP COUNT 

6608 040174 ERRHRD ERRNO, T24RWN,PKTSSR ;REWIND NOT ACCEPTED 
040174 104456 AP —«- CSERHRD 
040176 WORD 436 

046206 "WORD T24RWN 

040202 012136 "WORD PKTSSR 

6609 040204 30%:  CKLOOP ;LOOP IF SELECTED 
040204 104406 TRAP = CSCLP1 

6610 040206 012703 000400 MOV 0256. ,R3 ;RECORD SIZE 

6611 040212 013737 003114 045052 MOV FREE. T24RB ;STARTING WRITE BUFFER ADDRESS 

344 POREAEKAEEEEREAHARHRALAERARAARARERARAREEAARELSAKGARELAASREBALHARHRAAH 

6615 WRITE DATA,ACK,CVC=1 COMMAND 

ret | eeneceseasascccosecsossccessesassesessccesseseseesesoceosessessses 

6619 040220 012737 140005 045050 MOV #140005, T24PK3 ;WRITE DATA, ACK,CVC=1 COMMAND 

6620 040226 012704 045050 =A MOV OT24PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 

6622 040232 010337 045056 "MOV R3,T24SZ ;SET UP RECORD SIZE IN PACKET 

6623 040236 010465 000000 MOV R4.TSDBCRS) 18S! 

6624 040242 004737 016340 JSR PC: WAITF ;WAIT FOR SSR TO SET 
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| SEQ 0152 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


6625 040246 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
6626 040252 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
6627 040256 020102 CMP R1,R2 sARE THEY EQUAL ) 
6628 040260 001406 BEQ 75% s6R, IF OK 
6629 040262 0052357 002212 INC FATFLG sBUMP COUNT 
6633 040266 ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
040266 104456 TRAP CSERHRD 
040270 000665 -WORD 437 
040272 005111 «WORD UWRTERR 
040274 012156 -WORD PKTSSR 
6634 040276 75$: CKLOOP sLOOP IF SELECTED 
040276 104406 TRAP CsCLP1 
se 040300 1208: 
334 j PRRAEESEEEEEEEEEEESEEEEEEESEEEEEEDSESESEEESESEEESEEERESESEEEEEESEEE 
i 
6639 sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
6640 3 
ort { PRAEEAEEEREEEEEEEEEESEEEEEEESEEEEEEEEEEESEEEEESEEEEEEEEEEESEEEEEEEE 
6643 040300 004737 011104 JSR PC ,REWIND sCALL_TAPE REWIND COMMAND 
6644 040304 103407 BcS 130% BR, IF NO PROBLEM 
6645 0403506 010001 MOV RO,R1 sSAVE TSSR 
6646 040310 005237 002212 INC FATFLG sBUMP COUNT 
6650 040314 ERRHRD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED 
040314 104456 TRAP CSERHRD 
040316 000666 -WORD 436 
040320 046206 -WORD T24RWN 
040322 0121356 -WORD PKTSSR 
6651 040324 130%: CKLOOP ;LOOP IF SELECTED 
040324 104406 TRAP CSCLP1 
6652 040326 012703 001000 MOV #512. ,R3 sRECORD SIZE 
os3e 040332 013737 003114 045052 MOV FREE , T24RB sSTARTING READ BUFFER ADORESS 
6655 $ OOO666606060000666660000006066606060600666666000000066600000000000088 
; 
yori sREAD DATA,ACK,CVC=1 COMMAND 
: 
“> § OROOOOEO6666000004666600606606666006006006660000000004060008000080008 
6661 040340 012737 140001 045050 MOV #140001, T24PK3 sREAD DATA,ACK,CVC=1 COMMAND 
6662 040346 012704 045050 165%: MOV @T24PK3 ,R4 sSET UP R4 WITH PACKET ADDRESS 
6663 040352 010337 045056 MOV R3,124SZ s;SET UP RECORD SIZE IN PACKET 
6664 040356 010465 000000 MOV R4, TSDBCRS) s ISSUE COMMAND 
6665 040362 0047357 016340 JSR PC ,WAITF sWAIT FOR SSR T 
6666 040366 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
6667 040372 012702 100204 MOV @SSR!SC!BIT2,R2 sSET UP EXPECTED 
6668 040376 020102 CMP R1,R2 sARE THEY EQUAL 
6669 040400 001406 BEQ 170% BR, IF OK 
6670 040402 005237 002212 INC FATFLG sBUMP COUNT 
6674 040406 ERRHRD ERRNO, T24TRL ,EXPREC sTSSR INCORRECT AFTER READ DATA 
040406 104456 TRAP CSERHRD 
040410 000667 ° 439 
047254 -WORD T24TRL 
040414 015564 -WORD EXPREC 
6675 040416 170%: CKLOOP ;LOOP IF SELECTED 
040416 104406 TRAP CsCLP1 
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| SEQ 0153 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


6676 

yr Lhd f SORESESEEESSEESEEESESESEEEESESEEESESESESEESSESEEEESSSSESSEESEEESESESEES 

6678 : ' 

6679 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

6680 $ 1 

6661 {SSCEEEESSEEEEEEEESEESESESEEESSEEESASEERESESESESESESSEEESESEEESOSEESOSS | 

6683 040420 013701 044750 MOV T24BFR+6,R1 sGET MESSAGE BUFFER | 

6664 040424 010102 MOV Ri 3SET UP EXPECTED 

6685 040426 052702 040000 BIS @81T14,R2 }SET THE RLS BIT IN EXPECTED 

6686 040432 020102 CMP R1,R2 sARE THEY EQUAL 

6687 040434 001406 BEQ 180% 3BR, IF EQUAL CALL IS WELL) 

6688 040436 005237 002212 INC FATFLG ; BUMP Cc 

6692 040442 ERRHRD ERRNO, T24L0P,EXPREC i THE RLL BIT WAS NOT SET IN XSTO 
040442 104456 TRAP cee ERHRD 
040444 000670 .- WORD 
040446 047104 - WORD T2sL.0P 
040450 015564 - WORD EXPREC 

6693 040452 1808: 

6694 040452 013701 044746 MOV T24BFR+4,R1 vats UP RESIDUAL BYTE COUNTER 

6695 040456 012702 000400 MOV #256. ,R2 THIS SHOULD BE THE DIFFERENCE 

6696 040462 020102 CMP R1,R2 iIS THE DIFFERENCE | CORRECT 

6697 040464 001406 BEQ 190% ;68R, IF CORRECT 

6698 040466 005237 002212 INC FATFLG ; BUMP COUNT 

6702 040472 ERRHRD ERRNO, T24P6P,EXPREC sRBPCR NOT CORRECT 
040472 104456 TRAP CSERHRD 
040474 000671 .- WORD 441 
040476 047166 . WORD T24P6P 
040500 015564 - WORD EXPREC 

6703 040502 1908: CKLOOP ;LOOP IF SELECTED 
040502 104406 TRAP CSCLP1 

6704 040504 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
040504 L10057: 

104403 TRAP CsESuUB 

6705 040506 023727 002212 000017 CMP FATFLG,@15. sIS ERROR COUNT AT 25 

6706 040514 103402 BLO 999% ;6R, IF LESS THAN 25 

6707 040516 004737 017272 JSR PC ,CKDROP sTRY TO DROP THE UNIT 

6708 040522 999%: 

6709 

6710 3¢ 

6711 3 

e718 ameed 4, SUBTEST 6 

6714 i VERIFIES THAT READ REVERSE COMMANDS WITH SWB-0 

6715 sOPERATES PROPERLY. THE TAPE IS FIRST nee AND THEN 

6716 sWRITTEN WITH A SERIES OF TEST RECORDS VARING IN 

6717 sLENGTH AND ye CONTENT. THE TAPE IS THEN READ IN REVERSE 

6718 sSEQUENTIALLY AND THE RESULTS 

6719 iCSTATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON 

6720 sEACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE 

6721 EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 

6722 sOCCUR. 

6723 3 

6724 F 

6725 8 

726 8° 


6 
6727 040522 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
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040522 


00 
012124 


013737 
012704 


047544 
047410 
047502 


016064 
002212 


002172 
044720 


010752 
002212 


011104 


002212 
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044740 


TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


74.6: 
TRAP C:CSUB 
JSR PC, T24RT3 sSET UP OTHER COMMAND PACKET 
JSR PC, T24REST ;SET COMMAND PACKET 
JSR PC, T24RT2 ‘SET UP OTHER COMMAND PACKET 
FSOASSHHSASESASSESSSESSASSESESEASEESSAESEESEESEESSEEESEEESEESESESESEE 
}ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY SIT CLEAR IF ERROR 
POPPE TT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT tT 
JSR PC, SOF INIT :00 INITIALIZE ON CONTROLLER 
ecs 208 :6R IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSS) REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
CsEROF 
a 442 
; SFIERR 
fan [WORD SFIMSG 
‘ MOV UNITN, T240SW ;SET DRIVE NUMBER IN PACKET 
MOV OT24PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
J PSSSHAESSSKSHASESSHSSSSSSESASEESSHESSSSHESESSESSEESSHSEESSSEESESEES 
}WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
OPT T TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
JSR PC .WRTCHR sISSUE WRITE CHARACTERISTICS 
acs 24% 38R, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
TRAP C#ERHRO 
"WORD WRTMSG 
"WORD SFIMSG 
24%: CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 


§OOO60060600660066600066060660606060006060000660000000086000006008000008 
$ 
sISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


3 
PRORHKEREAGSARSSEAEGSARLAKASARSELAEAASHAERHKSAAHAHAARKSHAHHKDSSSLSASSSS 


JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
BCS 30% BR. IF NO PROBLEM 

MOV RO,R1 ;SAVE T 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T24RWN,PKTSSR ;REWIND NOT ACCEPTED 





SEQ 0154 
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SEQ 0155 
| TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
040646 012136 .WORD PKTSSR 
6780 040650 30%:  CKLOOP ;LOOP IF SELECTED 
040650 104406 TRAP CSCLP1 
6781 040652 012703 000400 MOV 0256. ,R3 sRECORD SIZE 
678 040656 013737 003114 045052 MOV FREE. 124R8 sSTARTING WRITE BUFFER ADDRESS 
pt : SESSSSSSSSSSSSSSHSSASSSSSSSSHSSSSSSSSSHSSSSSSHSHSSESSSESHESSSEEEEEEEE 
3 
6786 sWRITE DATA,ACK,CVC=1 COMMAND 
é 
ores : SRAARAAKOREARAERKAASARRTASLHKSERAASRRASHASKRERARSOEASKAHRSESEHADRORAKEADABHE 
6790 040664 012737 140005 045050 MOV #140005, T24PK3 ;WRITE DATA, ACK,CVC*1 COMMAND 
6791 oa0672 012704 045050 on MOV OT24PK3_R4 ;SET UP R4 WITH PACKET ADORESS 
0406 3 
6793 040676 010300 MOV R3.RO sSET PATTERN IN CORRECT REGISTER 
6794 040700 004737 017512 JSR PC .FILLMEN ;FILL MEMORY WITH RECORD SIZE 
704 010337 045056 MOV R3,124SZ 3SET UP RECORD SIZE IN PACKET 
& 710 €10465 000000 MOV R4.TSDBCRS) : ISSUE 
6797 040714 004737 016340 JSR PC. WAITF ;WAIT FOR SSR TO SET 
720 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENT 
6799 040724 012702 000200 MOV @SSR.R2 3SET UP EXPECTED 
730 020102 CMP R1,R2 ;ARE THEY € 
6801 040732 001406 BEQ 75% :6R, IF 
6802 040734 005237 002212 INC FATFLG ;BUMP COUNT 
6806 040740 ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
040740 104456 TRAP C8 
040742 000675 .WORD 445 
040744 005111 "WORD URTERR 
040746 012136 “WORD PKTSSR 
6807 040750 75%:  CKLOOP ;LOOP IF SELECTED 
040750 104406 TRAP —- CSCLP1 
6808 040752 005723 TST (R3)« ;BUMP RECORD SIZE 
6809 040754 022703 000414 CHP $268. .R3 END oF RECORD YET 
6810 040760 001346 BNE 658 MORE - RECORDS TO WRITE 
6811 040762 808: CKLOOP POOP IF SELECTED 
762 104406 TRAP C8CLP1 
6812 040764 005743 TST -(R3) ;SET BACK TO S12. 
6815 040766 013737 003114 045052 MOV FREE, T24R8 sSTARTING READ BUFFER ADORESS 
tty ,SHMHSHOHKEASHEHSASKELAHKLEHASKASESHASAHHAKAHTESSOHKANEASSSSHSHAHEAEHHDE 
3 
6817 ;READ REVERSE DATA,ACK COMMAND 
] 
6819 3 SHABKLEKEHRREHEAEEHEARESAADASEHEHADEASH AMEE HKEHAAKASEAAEHOKLALKRHDKKSERELRAEEH 
rt 040774 012737 100401 045050 MOV #100401, T24PK3 sREAD REVERSE DATA ACK COMMAND 
041002 012704 045050 165%: MOV @T24PK3.R4 3SET UP R4 WITH PACKET ADORESS 
6823 041006 010337 045056 MOV R3, 12452 SET UP RECORD SIZE IN PACKET 
6824 041012 010465 000000 MOV RA. TSOBCRS) sISSUE COMMAND 
6825 041016 004737 016340 JSR PC. WAITF ;WAIT FOR SSR TO SET 
1022 016501 000002 MOV TSSR(RS),R1 3GET TSSR CONTENTS 
6827 041026 012702 000200 MOV @SSR.R2 3SET UP EXPECTED 
6828 041032 020102 chp R1,R2 3ARE THEY 
6829 041034 001406 BEQ 1768 :0R, IF 
6830 041036 005237 002212 INC FATFLG ;BUMP COUNT 
6834 041042 ERRHRD ERRNO, T24WDC ,PKTSSR TSSR INCORRECT AFTER READ DATA 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


003114 


002212 


002212 
017272 


737 067544 
004737 047410 
004737 047502 





170%:  CKLOOP 
MoV FREE ,.R2 
MOV R3,R4 
SUB 0256. .R4 
173%: ADO R2.R4 
CMP (R4),R3 
6EQ 1808 
MOV (R4),R1 
HOV R3,R2 
INC FATFLG 
ERRHRD ERRNO, T24DTA,EXPREC 
180%:  CKLOOP 
TST (R46 
SUB R2,R4 
CHP R4.R3 
BME 1738 
TST -(R3) 
CMP . RS 
BNE 165% 
190%:  CKLOOP 
ENDSUB 
000017 cre FATFLG, 015. 
BLO 9998 
JSR PC, CKDROP 
9998: 


se 


: 
‘oad 4, SUBTEST 7 





SEQ 0156 
TRAP CsERHRD 
-WORD 446 
-WORD T24WOC 
oop IF creo . WORD PKTSSR 
al SELE 
TRAP CSCLPi 
3GET BUFFER ADDRESS 
3s CURRENT SIZE 
sFIRST LOCATION Baend cus 
3SET POINT TO CWORD) 
sCHECK DATA READ (R3=*DATA ALSO) 
+4 IF ALL IS WELL 
sRECD DATA 
sEXPECTED DATA 
3sBUMP 
sDATA READ NOT = WRITTEN 
TRAP C8ERHRD 
-WORD 447 
. WORD T240TA 
-WORD EXPREC 
sL0OP IF SELECTED 
CSCLPi 


sBUMP TO NEXT LOCATION 
sGET RIO OF BASE ADDRESS 


sEND OF RECORD YET 
36R, IF NOT AT END OF RECORD 
sGUMP RECORD SIZE 
rEND OF RECORD YET 
IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED 
TRAP Csc.Pi 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
0060 : 

TRAP CsESuB 
COUNT AT 
18R, IF LESS THAN 
sTRY TO OROP THE UNIT 


; VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE 

sSWAP BYTES yt BIT a 34 OPERATES PROPERLY. THE TEST 

sSEQUENCE I gy tt BY THAT USED IN SUBTEST 2. 

3sTHE RESULTS. EXCEPT FOR RAM CONTENTS. SrOULD BE THE SAME. 

8 

8 

$ 

; BGNSUB g>>>>>>>>>>>> Cage metest >>>>>>>>>>>> 

* Raps C8BSUB 

JSR PC. T24RTS 3sSET UW OTHER COPPWED PACKET 
JSR PC. T24REST 3SET CROWD PACKET P 
JSR PC. T24RT2 3SET UP OTHER COREE PACKET « 
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6867 041174 004737 016064 

6888 041200 

6889 041202 005237 002212 
041206 


003650 
041216 012124 
041220 
041220 013737 002172 044740 
6897 041226 C12704 044720 


6905 041232 004737 010752 
6906 041236 103407 
6907 041240 005237 002212 
6911 041244 010001 


1246 104456 
041250 000701 
005054 


041254 012124 
1256 104406 


920 
sees 041260 004737 011104 


266 
6924 041270 005237 0v2212 


104406 
012703 000400 
312 013737 003114 045052 





SEQ 0157 
FAARAHHAAASESAAASEEEAARESEAREEREEEESASEEEEEEAESARASESEEASEEASESSESESEEES | 
3 { 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
PPT TTT TTT TT TTT TTT TTT TT TTT TT TTT TTT OTIS TTT TTT TTT TT TTT TT TTT TTT TTT 
JSR PC,SOFINIT :00 INITIALIZE ON CONTROLLER 
BCS 20% ;BR IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ‘CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
.WORD 448 
[WORD SFIERR 
a [WORD SFIMSG 
: MOV UNITN, T240SW ;SET DRIVE NUMBER IN PACKET 
MOV @T24PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
J SRAASEKRSSSSSSSASSEASAAHSSSAAASESASEEASEHEAAEASHSSSHSSESSSEASASHESSEEE 
{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
| pececcccsesesesessscscccesesescsesessasacasesesessccesososeseseses 
JSR PC. WRTCHR ;ISSUE WRITE CHARACTERISTICS 
BCS 243 ;8R, IF COMMAND ISSUED OK 
INC FATELG : OUNT 
;SAVE CONTENTS OF TSSR 
ERRHRD ERAN, WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
.WORD 449 
"wORD WRTMSG 
"wORD SFIMSG 
248: CKLOOP ;LOOP IF SELECTED 
TRAP = C$CLP1 
{ SSSSSSSSSSSSHSSSSSSESSSSSESESSSSSSSSHSHSSSSS ASSESSES SKSESSESSSESSEES 
ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE ~ 
OOP T OPTI TTT TT TT TT TTT TTT TTT TTT TT TTT TTT TT ET TTT TTT TT TTT TTT TTT TT TTT 
JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
Bcs 308 ;BR, IF NO PROBLEM 
MOV RO,R1 SAVE TSSR 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T24RWN,PKTSSR }REWIND NOT ACCEPTED 
TRAP CSERHRD 
.WORD 450 
"wORD T24RWN 
"WORD  PKTSSR 
30%: CKLOOP ;LOOP (F SELECTED 
TRAP = CSCLP1 
MOV 0256. .R3 ;RECORD SIZE 


MOV FREE , T24RB sSTARTING WRITE BUFFER ADDRESS 


TSV7? - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 





012737 
012704 


0057435 
013737 


012737 
94 


000414 


003114 


002212 
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045052 


045050 


iWRITE DATA.ACK,CVC#1,SW8 COMMAND 


+ 
{ SOOSSHSSOSSHHNHSE SHOSSSSSSSESSSSSSSSSSSSSSSHSSSSSHSSSSSSSSSSSSSSSSS 


MOV #150005 , T24PK3 

MOV OT24PK3 RO 
658: 

MOV 

JSR PC.FILLMEM 

MOV ~124SZ 

MOV R4, TSOBC(RS) 

JSR WAITF 

MOV TSSRCRS).R1 

MOV R2 

CMP 1,R2 

BEQ 758 

INC FATFLG 

ERRHRD ERRNO, WRTERR .PKTSSR 
7538: CKLOOP 

TST (R3)> 

c™P & oa 

653 

808: CKLOOP 

TST -(R3) 

MOV FREE , T24RB8 


‘WRITE DATA, ACK,CVC*1,SWB COMMAND 
:SET UP R4 WITH PACKET ADORESS 


sSET PATTERN IN CORRECT REGISTER 

sFILL MEMORY WITH RECORD SIZE 

;SET UP RECORD SIZE IN PACKET 
OMPIANO 


ISSUE C 
s;WAIT FOR SSR TO SET 


BUMP COUNT 
;TSSR INCORRECT AFTER wae, > 9 cca 


CSERHROD 
-WORD 451 
-WORD WRTERR 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 
BUMP RECORD SIZE 
sEND OF RECORD YET 
:BR, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED 
CscLP1 


TRAP 
;SET RECORD SIZE BACK 10. Si2. 
i STARTING READ BUFFER ADORESS 


FSSSSSHSSHHSSSSSSSSSSSSSESSSSSSSSSSSESSSSSHSSSSSSSESSSHESSHSSSESESESE 


+ READ REVERSE DATA.ACK,SWB COMMAND 


a 
§ SSHHSSSSESHNSSSSSSSSSHSSSSSSSHSSSSSSSSSSSSSOSHSSSSSHESSSSSHSSSSESESSS 


MOV @110401, T24PK3 

1658: MOV @T24PK3.R4 

MOV R3, 12452 

MOV * TSOBCRS) 

JSR »WAITF 

MOV TSSR(RS),R1 

MOV @5SR.R2 

CMP R1,R2 

BEQ 1708 

INC FA 

ERRHRD ERRNO, T24WDC .EXPREC 
1708: CKLOOP 


s;READ REVERSE DATA,ACK,SWB COMMAND 

;SET UP R4 WITH PACKET ADORESS 

iSET UP RECORD SIZE IN PACKET 
OMMAND 


SR TO 
;GET TSSR CONTENTS 
3;SET XPECTED 
;ARE THEY EQUAL 
;6R, 
;BUMP COUNT 
:TSSR INCORRECT AFTER == A 
CSERHRO 
TNoRD S52 
. WORD T24W0C 
-WORD EXPREC 


sLOOP IF SELECTED 


ee -t— 


SEQ 0158 
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003114 
000400 


002212 


000400 


002212 
017272 


047544 
047410 
047502 
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SEQ 0159 
TRAP CSCLP1 
MOV Ange F ~ ;GET BUFFER ADDRESS 
MOV R3 sCURRENT RECORD SIZE 
SUB o2se, Ra FIRST LOCATION IN BUFFER 
1738: ADD R2,R4 ;SET POINTER TO FRAME (WORD) 
CMP Ra), R3 ;CHECK DATA READ (R3=DATA ALSO) 
BEQ ;6R, IF ALL IS WELL 
MOV (Ra), R1 sRE DATA 
MOV oat Re EXPECTED DATA 
INC FLG 38 OUNT 
ERRHROD ERAN: T240TA,EXPREC iDATA READ NOT = WRITTEN 
TRAP CSERHRD 
-WORD 453 \ 
. WORD T240TA 
-WORD EXPREC 
1603: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLPi 
TST CR4)> ;BUMP TO NEXT LOCATION 
SUB R2,R4 :GET RID OF BASE ADDRESS 
CMP R4,R3 sEND OF RECORD YET 
BNE 1738 ;BR, IF NOT AT END OF RECORD 
TST -(R3) ;BUMP RECORD SIZE 
CMP $256. ,R3 sEND OF REC YET 
8 165$ ;8R, IF MORE RECORDS TO WRITE 
1908: CKLOOP ;LOOP IF SELECTED 
TRAP CsCLPi 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
TRAP CsESUB 
CMP FATFLG,@15. :IS ERROR COUNT AT 25 
BLO 999 ;BR, IF LESS THAN 25 
eens JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
2 


3° 
iTEST 4, SUBTEST 8 


;VERIF IES THAT A READ REVERSE COMMAND READING A RECORD 
s;LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
;C(RLL) BIT SET. 

3 

3 

ge 


BGNSUB 3>>>>>>>>>>>> —e SUBTEST >>>>>>>>>>>> 
4.8: 
TRAP Cs6SU8 
JSR PC, T24RTS eee UP OTHER COMMAND PACKET 
JSR PC, T24REST 3SET COMMAND PACKET 
JSR PC, T24RT2 ;SET UP OTHER COMMAND PACKET 


j POSORESSEEESEEESSEEESEEEESEEEESESEEESEEEEESEEEEDEEEEDEEEEEESEESES 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
FOSSHSASSASSSESSESESSSESSSESHESESSESHSSESSESSSSSASSASSASESSSHESSEAEEES 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


£8 
an 
we 
233 
fe 

a 
Ry 


7044 041654 013737 
7045 041662 012704 


7 041702 
041702 104456 
041704 000707 
041706 005054 
041710 012124 

7061 041712 
041712 104406 

7062 

7063 

7064 

7065 

7066 

7067 

7068 


104406 
7079 041746 012703 
7080 041752 013737 


016064 
002212 


002172 044740 
044720 


010752 
002212 


011104 
016426 


002212 


001000 
003114 045052 


JSR PC, SOF INIT 
208 

INC FATFLG 

MOV RO,R1 

ERROF ERRNO, SFIERR, SFIMSG 


20%: 
MOV UNITN, T240SW 
MOV @T24PACKET ,R4 


JSR PC, ,WRTCHR 
BCS 243 
INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG,SFIMSG 


24%: CKLOOP 


300 gh ar ON CONTROLLER 
3;8R IF INIT WAS OK 


s;BUMP COUNT 
; CONTENTS OF TSSR REGISTER 
;FATAL ERROR TSSR WAS Ss OK 


sSET DRIVE NUMBER 7 PACKET 


CSEROF 
454 

SFIERR 
SFIMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 


SRSRHAAARARERERHRAARARERAREAEREEAHEARERAERETARRAERAEHEEREEHEARARAHAH SEH 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


t] 
SSRSEAKEHASRAEKEAAAREEAKAEAKARRHERAHAREAEAEAASEHEHAAEHARRHEEAKRSRSHRHEAEEEH 


sISSUE WRITE CHARACTERISTICS 
3BR, COMMAND ISSUED OK 
38 OUNT 

;SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC range 


"Horo 
- WORD 
- WORD 
TRAP 


sLOOP IF SELECTED 


§ PORARESEEEEEEEEEEEEEEEEEESOEEEEEEEEEEEEEESEEEEEEEEEEEEDDEEEEEEEEEE 
; 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
J SSASSSHASSSSSSSHSHSSSSSASASSESESSEAASEHSSSSHSASHASSEHESHSHSHHKKESEEEE 


JSR PC ,REWIND 
JSR = amas 


MOV RO,R1 
INC FATFLG 
ERRHRD ERRNO, T24RWN,PKTSSR 


#512. ,R3 
MOV FREE, T24RB 


sCALL TAPE REWIND COMMAND 
;SEE HOW TSSR IS 

BR, IF NO PROBLEM 

sSAVE TSSR 

BUMP 


3 COUNT 
sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


TRAP 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


PRGRAHRSAKEHEELAHGRSESHRARAREACAKESEARKKAKLHHESERHE RAE ARREARHRERHARSERERAH 


WRITE DATA,ACK,CVC=1 COMMAND 
3 


CSERHRD 
456 
T24RWN 
PKTSSR 


CsCLPi 


SEQ 0160 
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1 140 
7138 042144 


012737 
012704 


010337 


104406 
012703 
013737 


012737 


013701 
010102 
052702 
020102 


140005 
045050 


000400 
003114 


100401 
045050 
045056 
000000 
016340 
000002 
100204 


002212 


044750 
010000 
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045050 


045052 


045050 


F SSHSSSHSSSSSSSSHASSAASSSASSASSSSSSHSESSSASSSESSASSSESSSHASHSSESSEEEED 


65%: 


75$: 


MOV #140005 , T24PK3 
MOV @T24PK3 ,R4 


MOV R3,724SZ 
MOV R4, TSDBCRS) 
JSR PC; WAITF 

MOV TSSRCRS),R1 
MOV @SSR,R2 

CMP R1,R2 

BEQ 753 


INC FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 


CKLOOP 


MOV #256. ,.R3 
MOV FREE , T24RB 


sWRITE DATA,ACK,CVC=1 COMMAND 
;SET UP R4& WITH PACKET ADDRESS 


3SET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

;WAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

;8R, IF OK 

;BUMP COUNT 

3TSSR INCORRECT AFTER WRITE DATA 
TRAP Cc 
. WORD 
.WORD WRTERR 
-WORD PKTSSR 

;LOOP IF SELECTED 


TRAP CsCLPi 
sSIZE OF RECORD 
sSTARTING READ BUFFER ADDRESS 


§ PERAAEEEEEEEESEEEEEEEESESEEEEEEEEEEEEEEESEEDEEEREREEREEEEEEEDEEESS 
3 
sREAD DATA,ACK COMMAND 


é 
PRERAKEKAE ARREARS EEAREAKRARAREARARAKAHERSEARAREASHHAREHEKHKRAHHEAH 


165$: 


170%: 


MOV e124eK3 Ra » T24PK3 


MOV @T24PK 

MOV R3,T24S 

MOV R4, Ms Sa 
JSR P ye 344 

MOV TSSRCRS 


MOV oseniscsért2, R2 
CMP R1,R2 

BEQ 170$ 

INC 


FATFLG 
ERRHRD ERRNO, T24TRL ,EXPREC 


CKLOOP 


sREAD DATA, ACK COMMAND 

sSET UP R4 WITH PACKET ADORESS 
s;SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

:SET UP EXPECTED 

sARE THEY EQUAL 

BR, IF OK 

BUMP 


3 COUNT 
:TSSR INCORRECT AFTER a > ae 


CSERHRD 
-WORD 456 
«WORD T24TRL 
-WORD EXPREC 


sLOOP IF SELECTED 
TRAP CSCLP1 


jPORESEESSEEEEEEEEEEEEESEEEEEEEOSE60660000600060060006060006000860088008 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
§ SSSAHSSHSSSSSSSSSASHSSSSSSSSSSSSSESESSESSESESSSHSSSSESSSSHASEEKESEEEEE 


MOV T24BFR+6,R1 
BIS @81T12.R2 
R1,R2 


sGET MESSAGE BUFFER (XSTO) 
sSET UP EXPECT 

sSET THE RLL BIT IN EXPECTED 
sARE THEY EQUAL 


SEQ 0161 
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TEST 4: 





BASIC 


SO 
012124 


013737 
012704 


002212 


002212 
017272 


016064 
002212 


002172 
044720 
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000017 


044740 


BEQ 1803 

INC FATFLG 

ERRHRD ERRNO, T24L0ON,EXPREC 
180%: CKLOOP 

ENDSUB 

CMP FATFLG,@15. 

BLO 999% 

JSR PC ,CKDROP 
999%: 


3¢ 


; 
sTEST 4, SUBTEST 9 


;BR, IF EQUAL CALL IS WELL) 


; THE RLL BIT WAS NOT SET _IN XSTO 
TRAP 


TRAP 


CSERHRD 
459 
T24L0N 
EXPREC 


CsCLP1 


3>>>>>>>>>3>>> END SUBTEST >>>>>>>>>>>> 
L10062: 


* TRAP 


sIS ERROR COUNT AT 25 


;BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


i VERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA 
sBUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
;THE PROPER ERROR STATUS WITHOUT MOVING TAPE 


BGNSUB 
TST NXMFLG 
BNE 10% 
JMP 180$ 

10$: JSR PC, T24RTS 
JSR PC, T24REST 
JSR PC, T24RT2 


CsESUB 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4 


TRAP 
300 WE HAVE IT? 


;B8R, IF ENOUGH 
sSKIP THIS TEST i 
ET HER 


;SET UP OTHER COMMAND PACKET 


{PERRRAEEEREEEEEEEEEEEESEEEEEDEEEEEEEEEEEDEEEEEEEEEOEEEDEDEEEEEEEEE 
; 
sISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


é 
PREAH KAARRASEERAAAKRAEARARREARERERAEKAEERERAERAHAEHERARER REAR EEAS 


JSR PC, SOF INIT 

6CcS 20% 

INC FATFLG 

MOV RO,R1 

ERRDF ERRNO,SFIERR,SFIMSG 
208: 

MOV UNITN, T240SW 

MOV @T24PACKET, R4 


:00 DTI Tee ON CONTROLLER 
368R IF INIT WAS OK 
sBUMP COUNT 

;CONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 

- WORD 
- WORD 
- WORD 

sSET ORIVE NUMBER IN PACKET 


sSUBROUTINE NEEDS PACKET ADDRESS 


SPORE ARE EHSKARKEKHKREARAHLASLHHEHAEHERAHAEHKAKKREACAAEAKHEEAEKAHHATHLSHAS 
G 


Cs8SUB 


CSEROF 
460 


SFIERR 
SFIMSG 


SEQ 0162 
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SEQ 0163 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) | 
7189 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
t i 
7191 FPAASAHHSAAAASSSSEAAASSSEAAESSSALESSESEEAESSSESASSSSSSSSSSSESAEESSEEEESS | 
7192 
7193 042272 004737 010752 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 
7194 042276 103407 BCS 243 BR. IF COMMAND ISSUED OK 
7195 042300 005237 002212 INC FATFLG T 
7199 042304 010001 MOV RO,R1 }SAVE CONTENTS OF TSSR 
200 042306 ERRHRD ERRNO,WRTMSG, SFIMSG }WRITE CHARACTERISTISC FAILED 
2306 1044 TRAP § CSERHRD 
042310 000715 WORD 461 
042312 005054 “WORD WRTMSG 
042314 012124 “WORD SFIMSG 
7201 042316 24%: CKLOOP ;LOOP IF SELECTED 
042316 104406 TRAP CS$CLP1 
res FY SESHEESEAAASSSESSESAASERESESESESEAESESESASSEESESESHAEAESEASEEESEEESEEE 
204 ; 
7208 ;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
206 : 
veo" FPEAAASAAASSSSASSESSSEAEEEEREAEESSEAESSESEAEASSSSAAESSESSESSESEEEESSSEE 
7509 
7210 042320 005737 002216 TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 
7211 042324 001024 BNE 27% i8R IF SWITCH IS ON 
7212 042326 112737 000200 045061 MOVB 200,T248S1 ;WRITE MISCELLANEOUS CONT/READ STATUS 
7213 042334 112737 000010 045060 MOVB #10,7248S0 ;FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
7214 042342 012704 045030 MOV @T24PK2,R4 ;WRITE SUBSYS MEM PACKET 
7215 042346 010465 000000 MOV R4, TSDBCRS) ;ISSUE COMMAND 
7216 042352 004737 016426 JSR PC. CHKTSSR ;WAIT FOR SSR 
7217 042356 103407 BCS 28% ;BR, IF NO ERROR 
7218 042360 010001 MOV RO,R1 ;ERROR, SAVE TSSR 
7219 042362 005237 002212 INC FATFLG ;B8UMP COUNT 
7223 042366 ERRHRD ERRNO, T22SSR,PKTSSR ‘TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
042366 104456 TRAP — CSERHRO 
042370 000716 .WORD 462 
042372 027200 "wORD T22SSR 
042374 012136 "WORD PKTSSR 
7224 042376 278: 
7225 042376 28%: CKLOOP ;LOOP IF SELECTED 
042376 104406 TRAP CSCLP1 
7226 
7356 
7229 042400 004737 011104 JSR PC, REWIND sCALL TAPE REWIND COMMAND 
7230 042404 004737 016426 JSR PC, CHKTSSR ;SEE HOW TSSR IS 
7231 042410 103407 Bcs 30$ 3BR, IF NO PROBLEM 
7232 042412 010001 MOV RO,R1 ;SAVE TSSR 
7233 042414 005237 002212 INC FATFLG ;BUMP COUNT 
7237 042420 ERRHRD ERRNO, T24RWN,PKTSSR ;REWIND NOT ACCEPTED 
042420 1 TRAP §CSERHROD 
042422 000717 . WORD 3 
042424 ‘WORD T2 
26 012136 "WORD PKTSSR 
7238 042430 30$: CKLOOP ;LOOP IF SELECTED 
042430 TRAP — C$CLP1 


104406 
7239 042432 012703 000005 MOV @5.,R3 sNUMBER OF RECORDS 





| 
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7240 042436 013737 003114 045052 


7247 042444 012737 
7 012704 





045050 


045056 


045052 


045050 
045056 





MOV FREE , T24RB 


sSTARTING WRITE BUFFER ADDRESS 


{ PMRORAEEEREEESEREEEEEEESSESESRESEERESESESESSEESESEESESEEESSESESSESEE 
‘ 
sWRITE DATA,ACK,CVC=1 COMMAND 


3 
FSSAAAASESAEEESESESEASESSEAAESESEEEESESEEEEESESESESSSESESESSSEESEESSESEE 


65%: 


75%: 


MOV #140005 , T24PK3 
MOV @T24PK3 ,R4 


MOV #256 , T24SZ 
MOV R4, TSOBCRS) 
PC ,WAITF 


MOV TSSRCRS),.R1 
MOV @SSR ,R2 

CMP e 

BEQ 


INC FATFLG 
ERRHRD ERRNO, WRTERR,PKTSSR 


R3 
BNE 65% 
MOV 256. .RS 
MOV #160000,R1 
MOV #177776,R2 
PC. XNXM 


JSR 

BCC 180% 

MOV R1,NXMLO 
MOV NXMLO, T24RB 
CLR T24RB+2 


sWRITE DATA,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADORESS 


sSET UP RECORD SIZE IN PACKET 
SS OMMAND 

sWAIT FOR SSR TO SET 

s;GET TSSR CONTENTS 

sSET UP EXPECTED 
E THEY EQUAL 

sBR, IF OK 


;BUMP COUNT 
s3TSSR INCORRECT AFTER WRITE DATA 
TRAP ee 


- WORD 
-WORD WRTERR 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 
sBUMP_DOWN RECORD COUNTER 
38R, IF NOT AT S RECORDS YET 
sRECOROD SIZE 


3NXM ADDRESS START 
sLIMIT CHECK FOR NXM CHIGHEST) 
OOK NXM_ADORESS 


sSET TO 16 BIT ADDRESSING 


$ PREEREESEEEEEEEEEESEESSEEEEEEEEEOOEE$46000660606660600606000060600008888 
3 
sREAD DATA,ACK COMMAND 


Q 
,SAARERREAEAEALESSEAKRMAAAARKAEHERKABASLSRAALHAEEHKAALASEKAMRRLHRHRHARARR 


165%: 


MOV #100001 , T24PK3 
3,R4 


MOV TS RS).R1 

MOV @SSR 'NXM!SC!BIT3, R2 
CMP R1,R2 

BEQ 1708 

INC T24RB+2 

CMP T24RB+2, 04 

Oe 165% 


I FATFLG 
ERRHRD ERRNO, T24NXM,PKTSSR 


sREAD DATA,ACK COMMAND 

sSET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 
OMMAND 


OK 
;SET TO NEXT HIGHER ADDRESSING MODE 
;0ID WE OVERFLOW INTO 19 BITS 
‘OR IF STILL IN 16-18 BITS RANGE 


COUN 
;TSSR INCORRECT AFTER ane pore 


CSERHRD 


SEQ 0164 


a 





‘TSV7 - HARDWARE TESTS 1-8 MACRO YOS.02 Monday 16-Sep-85 13:41 Page 77-61 


SEQ 0165 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


ae 


000721 ° 465 

042662 045311 . WORD T24NXM 

04 012136 -WORD PKTSSR 
7297 042666 1708: CKLOOP 3;LOOP IF SELECTED 

042666 104406 TRAP CSCLPi 
7298 042670 1808: 

7299 042670 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

042670 L10063: 

042670 1044035 TRAP CsESUB 
7300 042672 023727 002212 000017 CMP FATFLG,@15. sIS ERROR COUNT AT 25 
7301 042700 103402 BLO 999% sORe IF LESS THAN 25 
7302 042702 004737 017272 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
7303 042706 999%: 

7304 
7305 3¢ 
7306 3 
Lt 5 44 omnd 4, SUBTEST 10 
7309 ; VERIFIES THAT ILLEGAL MODE-FIELD CODES IN THE READ 
7310 sCOMMAND CAUSE A FUNCTION REJECT _— WITH THE 
3k } ILLEGAL COMMAND CILC) ERROR BIT SET 
Hy 
7313 3 
7314 Hy 
7315 3° 
7316 
7317 042706 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

042706 74.10: 

042706 104402 TRAP CsBSU8 
7318 042710 004737 047544 JSR PC, T24RTS 3SET COMMAND PACKET UP CLEAR 5 
7319 042714 004737 047410 JSR PC, T24REST ;SET COMMAND PACKET 
vase 042720 004737 047502 JSR PC, T24RT2] iSET UP OTHER COMMAND PACKET 
vaee §O00006606000806606006060060680660064606600606406066060668066068660666606060688 

H 
Ltn sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

3 
vas §9O060606600060606606000620606650650666060600666866066060060068000006808 
32 
7328 042724 004737 016064 JSR PC,SOFINIT 300 periate ON CONTROLLER 
7329 042730 103407 bcs 20% 38R IF INIT WAS OK 
7330 042732 005237 002212 INC FATFLG sBUMP COUNT 
7334 042736 010001 MOV RO,R1 i CONTENTS OF TSSR REGISTER 
7335 042740 ERROF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 

042740 104455 TRAP CSEROF 

042742 000722 -WORD 466 

042744 003650 - WORD SFIERR 

042746 012124 -WORD SFIMSG 
7336 042750 208: 

7337 042750 013737 002172 044740 MOV UNITN, T240SW sSET UP DRIVE NUMBER 
vase 042756 012704 044720 MOV ST24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
iL § FOOSE OOE66F666666 60868646 006600080466666868066460668606666668060806080868 
1 3 
LL | sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
7344 PEREERELEDEREHARKEELERAKHPESARAEAAAAEHRSAKHSELASAARS HEARS HLASASHSLEAS 
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7353 042776 
042776 
043000 
043002 
043004 

7354 043006 
043006 

7355 043010 


005054 
012124 


104406 
013737 


012737 


013701 
010102 
02 


010752 
002212 


003114 


104001 
045050 
000000 
016340 
000002 
100206 


002212 


044750 
001000 


002212 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


045052 


045050 
045056 


JSR PC ,WRTCHR 
Bcs 248 

INC FATFLG 

MOV RO,R1 

ERRHRD ERRNO, WRTMSG, SFIMSG 


248: CKLOOP 


MOV FREE , T24RB 


s ISSUE WRITE CHARACTERISTICS 
COMMAND ISSUED OK 


PRERERRHEEAAKEEEHAERERREREHEREHRHEAAHAARSESAERHAARSEREGSEAAHHESEKEEESAEKH 


VILLEGAL MODE DATA,ACK COMMAND 


3 
PeRHGSEAEHKRAKERASEAHALHEAHERAHAGKHASEAHAERHEEAEAKSEHSEKSKAEKSESEHKACSHOE DASH 


MOV #104001, T24PK3 

MOV OT24PK3,R4 

MOV 0256. ,124SZ 

MOV R4, TSOBCRS) 

JSR PC MATTE 

MOV TSSR(RS),R1 

MOV eseR sec 61t1!B1T2,R2 


INC FATFLG 
ERRHRD ERRNO, T24WDF ,PKTSSR 


758: CKLOOP 


3BR, 
sBUMP C 
; SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC F > 
CSERHRD 

"NORD 467 
-WORD URTMSG 
WORD SFIMSG 

3LOOP IF SELECTED 
RAP CsCLPi 

sSTARTING WRITE BUFFER ADDRESS 

+ are os ag ACK COMMAND 

sSET UP R4 WITH T ADDRESS 

;SET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

;sWAIT FOR SSR!BIT1I!BIT2 TO SET 

;GET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

38R, IF OK 

sBUMP COUNT 

3;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 468 
-WORD T24WDOF 
-WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CsCLPi 


PREOAaEAEELEMESHEHSEKEEAHERESARASHAOKARSEHREHSAREASCAREDEAKRAKHAKEKS TEESE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


/ 
SSSEABAEAKASLAPSRARARHRARAAEKAHARSEAHRKALAAASHHARASSAREALSESHEDAABES KH 


MOV T24BFR+6,R1 

MOV R1.R 

BIS @BIT9,R2e 

CMP R1,R2 

BEQ 

INC FATFLG 

ERRHRD ERRNO, T24L0Q,EXPREC 
180%: CKLOOP 


3sGET MESSAGE BUFFER 

sSET UP EXPECTED 

3SET THE ILC BIT IN EXPECTED 
sARE THEY E 

38R, IF EQUAL CALL IS WELL) 


sBUMP C 
;THE ILC BIT WAS NOT SET IN XSTO 
TRAP 


CSERHRO 
-WORD 469 
-WORD T24L00 
-WORD EXPREC 
TRAP CsCLP1 


SEQ 0166 
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SEQ 0167 
TEST 4: BASIC READ WQATA (FORWARD AND REVERSE) 
| 7396 osaies ENOSUB > >>>>>>>>>>> ag Ot og >>>>>>>>>>>> 
| 043134 104403 _TRAP_ CSESUB 
7397 043136 023727 002212 000017 CMP FATFLG,@15. 3IS ERROR COUNT AT 25 | 
| 7398 043144 103402 BLO 999% BR. IF LESS THAN 25 
7399 043146 004737 017272 JSR PC ..CKDROP :TRY TO OROP THE UNIT 
7400 043152 999%: 
7401 
7402 s¢ 
7403 3 
en ‘ened 4, SUBTEST 11 
7406 i VERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A 
7407 sFUNCTION REJECT ee WITH ILLEGAL ADDRESS 
7408 iCILA) ERROR BIT SET 
7409 3 
7410 3 
7411 3 
Ry , 
7414 043152 BGNSUB 3>>>>>2>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
043152 T4.11: 
043152 104402 TRAP csesus 
7415 043154 004737 047544 JSR PC, T24RTS ;SET COMMAND PACKET UP CLEAR 
7416 043160 004737 047410 JSR PC, T24REST ;SET COMMAND PACKET 
as fH 043164 004737 047502 JSR PC, T24RT2]) 3SET UP OTHER COMMAND PACKET 
peie §O00000000000000000660600006666666000000660606060000606066000000000008 
bey } ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
7423 : $0000066600066060000086000060006006000606006068000006000600000640000886 
425 043170 004737 016064 JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
7426 043174 103407 6cs 20% 36R IF INIT WAS OK 
7427 043176 005237 002212 INC F 1 ;BUMP COUNT 
7431 043202 010001 MOV RO,R1 sCONTENTS OF TSSR eeetere 
7432 043204 ERROF ERRNO,SFIERR,SFIMSG i FATAL ERROR TSSR WAS NO 
043204 104455 TRAP CSEROF 
043206 000726 -WORD 470 
043210 003650 -WORD SFIERR 
043212 012124 -WORD SFIMSG 
7433 043214 20%: 
7434 043214 013737 002172 044740 MOV UNITN, T240SW 3SET UP DRIVE NUMBER 
Let = 043222 012704 044720 MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
et 1 §O00000000000000000000006000060006600606000060000060600060600000680008006 
ay 94 WRITE CHARACTERISTICS CUMMAND (CALL TO WRICHR) 
7441 : 0000000606000006000000600066000000660000000600000060600000000060000866 
7443 043226 004737 010752 JSR PC, .WRTICHR sISSUE WRITE CHARACTERISTICS 
7444 043232 103407 ecs 24% 36R, IF COMMAND ISSUED OK 
7445 043234 005237 002212 INC FATFLG 3; BUMP 
7449 043240 010001 MOV RO,R1 sSAVE C 


. ONTENTS OF TSSR 
7450 043242 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
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| SEQ 0168 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
043242 104456 TRAP CSERHRD | 
043244 000727 .- WORD 471 j 
043246 005054 .WORD WRTMSG ! 
043250 012124 -WORD SFINSG 
74S1 043252 24%: CKLOOP sLOOP IF SELECTED 
043252 104406 TRAP CSCLPi 
74 043254 013737 003114 045052 MOV FREE , T24RB sILLEGAL STARTING READ BUFFER ADDRESS 
Lat 4 043262 012737 177700 045054 MOV #177700, T24RB+2 sCREATE ILLEGAL ADDRESS 
Le 4 fSHOHEEHSESSSSESESSSESASHESESESSHSSSSSSAEHSEASESESSSESSSESHSSESSSSS 
i 
ne sLEGAL MODE ,ACK,CvC*1,READ COMMAND 
3 
Los +4 J SHOHESHASEEASSESSSESESSESOSEHSSESESHSSESESESSEHSSESESESESSEEESEESES 
7461 043270 012737 140001 045050 MOV on ecoi- T24PK3 3LEGAL MODE .ACK.CVC*1,READ COMMAND 
Ly | 043276 012704 045050 MOV eTZ4PKS RA 3SET UP R4 wITH * PACKET ADORESS 
7 o4 012737 000400 045056 MOV $Z iSET UP RECORD SIZE IN PACKET 
7464 043310 ©C10465 000000 MOV Rae a ssb0cRs) s ISSUE C 
7465 043314 004737 016340 JSR PC. by S44 iWAIT FOR SSR!BIT1I!GIT2 TO SET 
7466 043320 016501 000002 MOV TSSRCR 3sGET TSSR CONTENTS 
7467 043324 012702 100206 MOV oscr isc s61t1:61T2. R2 3SET UP EXPECTED 
7468 043330 020102 chp 1,R2 3s ARE QUAL 
7469 043332 001406 BEQ sBR, 
7470 043334 005237 002212 INC FLG sBUMP COUNT 
7474 043340 ERRHRD ERRNO T24UDG, PKTSSR sTSSR INCORRECT AFTER READ DATA 
043340 104456 TRAP CSERHRD 
3342 0007350 .- WORD 72 
043344 04 . WORD T24W0G 
3346 0121356 .- WORD PKTSSR 
7475 043350 75%: CKLOOP ;LOOP IF SELECTED 
7476 3350 104406 TRAP CSCLPi 
err sSSSSESSESSESESSSSESSSSESHESESEEEESSESEEEESEEHESEOEEESEEEESESEESEEEE 
4 3 
ere sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
480 Hy 
Lins +3 J SHSESESSSESSESSESESSSSSSESSSSSSESSSSAEALSSSSESSESESEHSESEESEHEEEESES 
7483 V43 013701 044750 MOV T24BFR+6,R1 3sGET MESSAGE BUFF 
7464 043356 010102 MoV R sSET UP EXPECTED 
7485 043. 052702 000400 BIS e8iTs8.R2 3SET THE ILA BIT IN EXPECTED 
7486 04 020102 CMP R1,R2 sARE THEY 
7487 043 001406 BEQ 180% 38R, IF EQUAL CALL IS WELL) 
7486 043370 005237 002212 INC FATFLG sBUMP COUN 
7492 043374 ERRHRD ERRNO, T24ILA,EXPREC i THE ILA BIT WAS NOT SET IN XSTO 
043374 104456 TRAP segues 
043376 000731 - WORD 473 
0454 . WORD T24ILA 
4 015564 .- WORD EXPREC 
7493 043404 1808: CKLOOP 
4. 104406 CSCLPi 
7494 043406 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
043406 L1006S: 
043406 1 TRAP CsEsus 
7495 043410 023727 002212 000017 CMP FATFLG, #15. 3IS ERROR COUNT AT 25 
7496 043416 10 BLO 999% 38R, IF LESS THAN 25 
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sea 0169 | 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
7497 043420 004737 017272 JSR PC, CKDROP sTRY TO DROP THE UNIT 
7498 043424 9998: 
7499 
7500 e 
7501 ’ 
7508 TEST 4, SUBTEST 12 
750 
7504 VERIFIES THAT A DATA BUFFER ADORESS REFERENCING 
7505 sNONEXISTANT MEMORY CAUSES RECOVERABLE ERROR 
7506 }TERMINATION (TC=4), WITH THE NXM BIT SET IN THE TSSR, AND 
730? ;THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY. 
t- 
7$10 pot re +} @GNSUe 3>>>2>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
043424 108402 “oe TRAP) ss C8BSUB 
7511 04 005737 003126 TST NXMFLG 100 WE HAVE IT? 
75 001 BNE 108 IF 
7513 043434 C0013 043672 JP 808 extP THIS TEST IF NOT 
7514 043440 004737 04 108: JSR PC, T24RT3 sSET COMMAND PACKET UP CLEAR 
7515 043444 004737 047410 JSR PC. T24REST 1SET COMMAND PACKET 
7316 043450 004737 047502 JSR PC, T24RT2 3SET UP OTHER COMMAND PACKET 
Let 4 3 SSHSHHSSHNSSSNSS SHOSSSSSSSSSSSSSHSSSSSSSHSSSHSSSSSSSSSHSHSSSSSSSSSSSESEE 
7320 TISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
vee : SESSHSSSSSSSHSSHSSSSSSSSSSSHSSSESSSHESSSESSSSSSSSSSHSSSSSSSSSSEESSESEEEE 
7524 043454 7 016064 JSR PC, SOFINI} :00 INITIALIZE On CONTROLLER 
7525 043460 103407 Bcs 208 36R IF INIT WAS OK 
7326 043462 37 002212 INC FATFLG sBUMP COUNT 
043466 010001 MOV RO,R1 ICONTENTS OF TSSR REGISTER 
7531 043470 ERROF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
043470 104455 TRAP  CSEROF 
043472 732 .WORD 474 
04347 50 [WORD TERR 
043476 012124 [WORD SFIMSG 
7332 043500 208: 
043500 013737 002172 044740 nov T240Su 3SET UP ORIVE NUMBER 
7534 043506 044720 MOV STeaPACKET RA sSUBROUTINE NEEDS PACKET ADORESS 
aus 3 SKEEBSSEAASASSTVASSESLASASHAASOSSESHCAGALHBDLCHSSSHASLSSSSAASASHSSRSHSASHEASAS 
7338 {WRITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 
+ : EHAEAPSEOSSSERESHSAGEHOHSALSESHAGCASASHSLAAAE LHASA SHARASSROKABDHEEKEOAS  SHEOKGSS 
oa3si2 004737 010752 JSR PC .MRTCHR sISSUE WRITE CHARACTERISTICS 
03407 ecs 24s BR. IF COPD ISSUED OK 
37 002212 INC ATFLG 
010001 MOV RO,R1 {SAVE CONTENTS OF TSSR 
06 ERRHRD ERRNO. URTMSG. SFINSG sWRITE CHARACTERISTISC FAILED 4 
aSorss "ono ry 
043532 005054 "WORD «os URTINSG 
043534 012124 “WORD «6s SF INSG 
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7550 043536 
3536 


012737 


160000 
177776 
016466 
003130 


003130 
045054 


140001 
045050 


000000 
016340 
000002 
104210 
045054 
045054 
002212 


002212 
017272 


MACRO YOS.02 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


045052 


045050 
045056 


000017 


24%: 
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#160000,R1 
| phe 


R1,NXMLO 
NXMLO, T24RB 
T24RB+2 


sLOOP IF SELECTED 


TRAP 
sNXM LOW ADDRESS STAR 
sLIMIT CHECK FOR NXM (HIGHEST) 
LOOK FOR NXM ADDRESS 


CsCLP1 


8 NON FOUND 

sSET ADDRESS UP FOR TEST 
sSET TO MEMORY ADDRESS 
;SET TO 16 BITS ADDRESSING 


{PRRAAEAERERERASERESEEEEREREREAEESEEEREESEEESEESSEEEEEEEEEEEEEEEEES 
3 
sREAD, ACK, CvC=1, COMMAND 


3 
J PAAAAAAKESASSHASASHAEAAESALEAASEAAESSERESESEASSASEESESESEESEESESESES 


308: 


75$: 


9998: 


3° 


#140001, T24PK3 
4PK3,R4 


CRS),.R1 
@SSR!SCINXM:BITS, -R2 


T24RB+2 
T24RB +2, 04 
30% 


FATFLG 
ERRNO, T24NXM,PKTSSR 


FATFLG,@15. 
PC. CKDROP 


sTEST 4, SUBTEST 13 


VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 
TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION 
;WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET 


sREAD, ACK, CVC=1, COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
T UP RECORD SIZE IN PACKET 
sISSUE COMMAND 
;WAIT FOR SSR!IBIT1!BIT2 TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
QUAL 


F OK 
‘BUMP TO NEXT ADDRESSING RANGE 
;CHECK FOR OVERFLOW 
BR, IF STILL IN 16-18 BIT RANGE 


;BUMP COUNT 
iTSSR INCORRECT AFTER = 


CSERHRD 
-WORD 476 
. WORD T24NXM 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10066: 
CsESuB 


TRAP 
sIS ERROR COUNT AT 25 
BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


SEQ 0170 


ee 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


7602 


047544 
047410 
047502 


016064 
002212 


013737 
012704 


002172 
044720 


010752 
002212 


005054 
012124 
104406 


011104 
016426 


002212 


BGNSUB g>>>>>>>>>>>> 0 ae >>> > >>> >>> >D 
"TRAP —s- C$8SUB 
JSR PC. T24RTS :SET COMMAND PACKET UP CLEAR 
JSR PC, T24REST ;SET COMMAND PACKET 
JSR PC, T24RT2 ;SET UP OTHER COMMAND PACKET 
J SSOOASHASSSSAASSHSSSESSASSSSESSHEEHEASSEEHESHEHSSEESHEHEHHEEEEEEEES 
} ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
| OdSesescocescscosossocesessoscoceseseeoeseoseoece‘eeeoeooeoseeeeeS 
JSR PC ,.SOFINIT 300 INITIALIZE ON CONTROLLER 
6cs 20% ;6R IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDOF 
. WORD 477 
- WORD SFIERR 
208 . WORD SF IMSG 
044740 2 MOV UNITN, T240SW ;SET UP DRIVE NUMBER 
MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


FSSHSSSSSSSHSSHSSSSSESHAASSSSSSSSHSSSSSHHHSASESSSSSHSASSSSHSSSSHSSHSEESEEE 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


o 
§ SSSSSSSSHSHSHSHSSSSSSSSSSSSHEHESSSSSSHASSSSESESSESESSESHSSSSESSESEEEEEEE 


JSR PC .WRTCHR 
BCS eas 

INC FATFLG 
MOV RO 


2R1 
ERRHRD ERRNO, WRTMSG, SFIMSG 


248: CKLOOP 


sISSUE WRITE CHARACTERISTICS 
BR, IF COMMAND ISSUED OK 


F SSSSSSSSASSHSSSSSSSSSSSHSHSHSSSSSSHSASSSESSSHASSHSSESEESSEESESESEEES 


SISSUE REWIND COMMAND TO SELECTED APE DRIVE 


3 
J SSSSSSHSHSSASSHSSSHSSHSSSSESSSSESSESSSASHSSSSESESHSSSEEEEEEEEESEEEEE 


JSR 
JSR 
BcS 
MOV 2 
INC FATFLG 

ERRHRD ERRNO, T24RWN,PKTSSR 


PC ,REWIND 
PC ,.CHKTSSR 
30% 


38 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
. WORD 78 
. WORD WRTMSG 
«WORD SFIMSG 
;LOOP IF SELECTED 
TRAP CSCLPi 
;CALL TAPE REWIND COMMAND 
;SEE HOW TSSR IS 
. ° NO 
;SAVE TSSR 
;BUMP COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHROD 


SEQ 0171 
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044036 
044040 


044042 
044042 


044044 
S8 044050 


000737 
046206 
012136 


104406 
012703 
013737 


012737 
012704 


010337 


013701 
010102 


000400 
003114 045052 


100401 045050 
045050 


045056 
000000 
016340 
000002 
100206 


002212 


044750 
002000 


002212 


002212 000017 


308: 


CKLOOP 
MOV 
MOV 
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0256. 
FREE, * +3aR8 


-WORD 479 
-WORD T24RWN 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 
sRECORD 


SIZE 
sSTARTINC WRITE BUFFER ADDRESS 


J OSAAASHHSSAHSSSSAASESSESASSSESESEAEEESEARESESEESSSESDESSSSESESSESESEEESEEE 


READ REVERSE DATA.ACK COMMAND 


3 
J SORAAAASASASESAASASEEAESESESESEEESSESSEAESEESESEOSESSESEEEEEEEEESS 


65%: 


75$: 


INC 
ERRHRD 


CKLOOP 


#100401 , T24PK3 
@T24PK3,R4 


R3,T24SZ 
pea es 


TSERCR 35 4R 
assmiscierta:erT2, oR2 


FATFLG 
ERRNO, T24WDE , PKTSSR 


;READ REVERSE DATA, ACK COMMAND 
;SET UP R4 WITH PACKET ADORESS 


;SET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 
_* FOR SSR TO SET 
:GET TSSR CONTENTS 
iSET UP EXPECTED 
;ARE THEY — 
;BR, IF OK 
UMP 


38 COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 

«WORD 480 

-WORD T24WDE 

-WORD PKTSSR 

TRAP CsCLP1 


;LOOP IF SELECTED 


| PORORESEAAEEEEEESEEEESEREEEEEESEEEEE EERE SEEEEEEEEEEEEOEEEEEEEEEEEE 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


o 
J SSSSHASSSSHKSSSSESSESSAASASSASSSSSASESSSSHSESHSSSSHESESESESESESESEEESE 


180$: 


T24BFR+6,R1 
@BIT10,R2 

R1,R2 

180% 

FATFLG 

ERRNO, T24NEF , EXPREC 


FATFLG,@15. 
999% 


sGET MESSAGE BUFFER 

sSET UP EXPECTED 

sSET THE NEF BIT IN EXPECTED 
sARE THEY EQU 

sBR, IF ——. CALL IS WELL) 
; BUMP 


; THE RLL BIT WAS NOT SET_IN XSTO 
TRAP CSERHRO 


TRAP CSCLPi 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
Li 


TRAP CsESUB 
sIS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 


SEQ 0172 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


SEQ 0173 


7703 044204 004737 017272 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
| 7704 044210 999%: i 
| 7705 ! 
706 ie 
| 7707 3 ‘ 
An | sTEST 4, SUBTEST 14 
. 
7710 ;VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE | 
7711 sTAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE 
wig :(BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT. 
¢ 
7714 H 
7715 3 
ms . 
7718 044210 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
044210 74.14: 
044210 104402 TRAP CsB6SUB 
7719 044212 C04737 047544 JSR PC, T24RTS 3SET COMMAND PACKET UP CLEAR 
7720 044216 004737 047410 JSR PC, T24REST :SET COMMAND PACKET 
yreh 044222 004737 047502 JSR PC, T24RT2 sSET UP OTHER COMMAND PACKET 
vies § O8O000600000060060660006060606006066266666066660666006666660060606680600080686 
as 3 
vies sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 
AL 3 FPRSAASASHSASSSESESSESSEASSSESSEAESSEKEKESEESEEEEEEEEEEEEEEEEEEEEES 
28 
7729 044226 004737 016064 JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER 
7730 044232 103407 BCS 20% ;B8R IF INIT WAS OK 
7731 044234 005237 002212 INC FATFLG sBUMP COUNT 
7735 044240 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
2 ERROF ERRNO, SFIEPR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
044242 104455 TRAP CSERDF 
244 000742 -WORD 482 
044246 003650 - WORD SFIERR 
044250 012124 -WORD SFIMSG 
7737 044252 208: 
7738 044252 013737 002172 044740 MOV UNITN, T240SW ;SET UP DRIVE NUMBER 
Ah 4 044260 012704 044720 MOV @T24PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
7741 § 9O060606666606600008666606000606060060066660066606606064606600664606064600068 
7742 Fy 
as sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3 
7745 J SPAREASSSSEHSASSSASSSSSSSSSHSESESSEESESEESEEEESEEEEEAEEEEEEEEEEEEEE 
7746 
7747 044264 004737 010752 JSR PC .WRICHR sISSUE WRITE CHARACTERISTICS 
7748 044270 103407 Bcs 24s ;8R. IF COMMAND ISSUED OK 
7749 044272 005237 002212 INC FATFLG 3;BUMP COUNT 
7753 044276 010001 MOV RO,.R1 ;SAVE CONTENTS OF TSSR 
300 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
044300 104456 TRAP CSERHRD 
044302 000743 . WORD 3 
044304 005054 WORD WRTMSG 
044306 012124 WORD SF IMSG 
7755 044310 24%: CKLOOP ;LOOP IF SELECTED 
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SEQ 0174 


vse 044310 104406 TRAP CSCLP1 
beds FSRAHAAHAASASSHSEAASEASSSESAESAESASHESASESSEEAESESEASSESEHSESESEESEEEES 
| 7 
| 7759 JISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
eh | SSeececccnecescccecessssessccesecnccesessosooeesesseeosscsesesees | 
7763 044312 004737 011104 JSR —s- PC, REWIND ;CALL TAPE REWIND COMMAND 
7764 044316 004737 016426 SSR —s-PC | CHKTSSR SEE HOW TSSR IS 
7765 044322 103407 Bcs «308 ‘BR, IF NO PROBLEM 
7766 044324 010001 MOVs ROR SAVE TSSR 
7767 044326 005237 002212 INC FATFLG ‘BUMP COUNT 
7771 044332 ERRHRD ERRNO, T24RWN,PKTSSR ‘REWIND NOT ACCEPTED 
044332 104456 TRAP —CSERHRD 
044334 000744 ‘WORD 484 
044336 046206 “WORD © T24RWN 
044340 012136 WORD PKTSSR 
7772 044342 30%:  CKLOOP ;LOOP IF SELECTED 
044342 104406 TRAP CSCLP1 
7773 044344 012703 000400 MOV —s-:@256...R3 ;RECORD SIZE 
7774 044850 013737 003114 045052 MOV —s- FREE, T24RB STARTING WRITE BUFFER ADDRESS 
an J SSSHSSHAASKESSSESSEASASASASASSSASSEASESSSSESESSSEARSESASSEASSESSSSESESEES 
7778 ‘WRITE DATA, ACK,CVC=1 COMMAND 
ee ' eensescececesesesessccesesesaceccesecasesesesosesesesesesesossses 
7782 044356 012737 140005 045050 MOV —»s- @140005, T24PK3 ;WRITE DATA,ACK,CVC=#1 COMMAND 
7785 044364 012704 045050 ese, TOV. «aT 2MPKS.RA ‘SET UP R4 WITH PACKET ADDRESS 
7785 044370 010337 045056 * mov saR3. T248Z ;SET UP RECORD SIZE IN PACKET 
7786 044374 010465 000000 MOV —sR@, TSDBCRS) ‘ISSUE C 
7787 044400 004737 016340 JSR so PC“ WATTF ‘WAIT FOR SSR TO SET 
7788 044404 016501 000002 MOVs TSSRC(RS).R1 ‘GET TSSR CONTENTS 
7789 044410 012702 000200 MOV —s @SSR.R2 SET UP EXPECTED 
7790 044414 020102 CHP RARE FARE THEY EQUAL 
7791 044416 001406 SEQ Sssé758 ‘BR, IF OK 
7792 044420 005237 002212 INC‘ FATFLG :BUMP COUNT 
7796 044424 ERRHRD ERRNO. WRTERR,PKTSSR ‘TSSR INCORRECT AFTER READ DATA 
044424 104456 TRAP CSERHRD 
044426 000745 WORD 485 
044430 005111 WORD WRTERR 
044432 012136 “WORD PKTSSR 
7797 044434 75%: CKLOOP ;LOOP IF SELECTED 
044434 104406 TRAP  CSCLP1 
7798 044436 012703 0v0400 MOV —s-:@256...R3 ;RECORD SIZE 
7799 044442 018757 003114 045052 MOVs FREE. T24RB ;STARTING READ BUFFER ADDRESS 
reo FSRAHAHAKASARSSHSSHASASASAHHKSS HEHEHE HKASHAHSHAHSEASSAESSHAELSESSESEKASEEKES 
7803 IREAD REVERSE DATA,ACK COMMAND 
poor ; 8O266464666666666646664604606664666646686666666668666664664606466464666866468686 


7807 044450 012737 100401 045050 MOV #100401, T24PK3 sREAD REVERSE DATA,ACK COMMAND 
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BASIC 


104406 
012703 
013737 


012737 


045050 
045056 
000000 
016340 
000002 
000200 


002212 


000400 
003114 
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SE@ 0175 


165%: MOV @T24PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
MOV R3, 72452 ;SET UP RECORD SIZE IN PACKET | 
MOV R4, TSOBCRS) ;ISSUE COMMAND 
JSR PC: WAITF ;WAIT FOR SSR TO SET 
MOV TSSRCRS),R1 :GET TSSR CONTENTS 
MOV @SSR,R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 170% BR, OK 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T24TRL,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
.WORD 486 
"WORD T24TRL 
70%:  CKLOOP Oop IF SELECTED “alee 
1 : KL 3L 
TRAP CSCLP1 
MOV 0256. .R3 ;RECORD SIZE 
MOV FREE, T24RB ;STARTING READ BUFFER ADDRESS 
I PSAHAKASASASASASASASASESESSESSEKEKERSESSSSASEASESSESESESSSSSKESEESEEESESE 
: 
;READ REVERSE DATA,ACK COMMAND 
3 
PERKSAAKARERERSAERERERAHDERARKREREARTHESEARAEKEEAEERESREAKKEAHKBREHESESEAK 
MOV #100401, T2aPKs ;READ REVERSE DATA, ACK COMMAND 
1953: MOV OT24PK3.R ;SET UP R4 WITH PACKET ADDRESS 
MOV RS To4sz ;SET UP RECORD SIZE IN PACKET 
MOV R4.,TSOBCRS) ;ISSUE COMMAND 
JSR PC; WAITF ;WAIT FOR SSR TO SET 
MOV TSSR(RS),R1 ;GET TSSR CONTENTS 
MOV @SSR!SC!8IT2,R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY E 
BEQ :BR, IF OK 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T24TRL,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP  CSERHRD 
.WORD 487 
"WORD T24TRL 
WORD PKTSSR 
200%: CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 
MOV T24BFR+14,R1 ;GET MESSAGE BUFFER (XST3) 
MOV Ri, ;SET UP EXPECT 
BIS @B1TO,R2 ;SET THE RIB BIT IN EXPECTED 
CHP R1,R2 ;ARE THEY EQUAL 
BEQ ;BR, IF EQUAL CALL IS WELL) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T24LOR,EXPREC ;THE RIB BIT WAS NOT SET IN XSTO 
TRAP  CSERHRD 
.WORD 488 
“WORD T24LOR 
"WORD EXPREC 
210%:  CKLOOP 
TRAP —s- CS$CLP1 
ENDSUB 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10070: 
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044656 104403 
044660 023727 002212 000017 CMP FATFLG, #15. 
7859 044666 103402 BLO 
7860 044670 004737 017272 JSR PC, CKOROP 
7861 044674 999% 
7862 3 
7863 3 
7864 3 
7865 044674 004737 016546 JSR PC, TSTLOOP 
7866 044700 10300 BCC 163% 
7867 044702 000137 035376 UMP T24L00P 
7868 044706 163%: 
7869 044706 XIT ‘TST 
044706 104432 
044710 00 
7870 
7871 i* 
7878 ;LOCAL STORAGE FOR THIS TEST 
ed 
7875 044712 .BLKB 10-<. -TSV2E7> 
7877 044720 T24PACKET: 
7878 044720 100204 .WORD 100204 
7879 044722 044730 “WORD T24DATA 
880 044724 "WORD 0 
7881 044726 000012 [WORD 10. 
7882 044730 T24DATA: 
7883 044730 044742 .WORD T24BFR 
7884 044732 “WORD 0 
7885 044734 000024 ‘WORD 20. 
7886 044736 “WORD 0 
7887 044740 000000 T240SW: :WORD 0 
7988 044742 T24BFR: .BLKW 25. 
e 
7890 ;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
3 
7893 045024 .BLKB 10-<.-TSV2E7> 
7895 045030 T24PK2: 
7896 045030 100206 .WORD 100206 
7897 045032 04 "WORD T24BF2 
7898 045034 ‘WORD 0 
7899 045036 000006 ‘WORD 6. 
7902 045040 BLKB 10-<.-TSV2E7> 
7904 045050 T24PK3 
7905 04 100205 .WORD 100205 
7906 045052 T24RB 
7907 04 003114 T24WB: .WORD FREE 
7908 045054 000000 ‘WORD 0 
7909 04 000000 T24SZ: :WORD 0 
7910 “EVEN 
7911 3 
7912 3 
913 r 
7914 045060 24BF2: 
7915 045060 010 T248S0: .BYTE 10 
7916 045061 200 T248S1: .BYTE 200 
7917 045062 000000 4S2: [WORD 0 
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SEQ 0176 


} 
| 
TRAP  CSESUB | 
;IS ERROR COUNT AT 25 
8R, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


300 WE NEED TO ITERATE TEST 

36R, IF LOOP REQUIRED 

;EXECUTE AGAIN 

;ALL DONE THIS TEST 
TRAP CsExIT 
-WORD L10052-. 


sCOMMAND PACKET FOR TEST 

sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 

sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 

sLENGTH OF MESSAGE BUFFER 


sORIVE SELECTION BITS 2-0 
sMESSAGE BUFFER 


;WRITE SUB SYS MEM COMMAND, IE AND ACK 
;ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREAD COMMAND, IE AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


sBSELO AREA 
sBSEL1 AREA 
sSEL 2 AREA 
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| SEQ 0177 
| TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
7918 045064 000000 T24S3: .WORD 0 ;DATA AREA 
b 
7920 , 
7921 .EVEN 
7922 :TAPE MOTION PACKET COMMAND VALUES 
7924 045066 100005 T24RN: .WORD 100005 sREAD DATA (NEXT) 
7925 045070 100405 T24WOR: .WORD 100405 sREAD DATA RETRY 
7926 045072 102005 T24CON: .WORD 102005 ;WRITE CONTINOUS 
7927 045074 177777 “WORD 177777 3END OF DATA 
7928 045076 000000 T24DLY: :WORD 0 ;DELAY STORAGE AREA 
79 
7931 3¢ 
7932 ;LOCAL TEXT MESSAGES FOR TEST 
7933 ‘- 


34 
7935 045100 116 105 106 T24NEF: .ASCIZ ‘NEF Not Set After NON-EXECUTABLE FUNCTION’ 
7936 045152 122 111 102 T24LOR: .ASCIZ ‘RIB Not Set After READ REVERSE Into BOT’ 


7937 045222 124 123 123 T24WOG: .ASCIZ ‘TSSR Not Correct After Illegal ah Address Bits Set’ 
7938 045311 124 123 123 T24NXM: .ASCIZ ‘TSSR Not Correct After NXM y Address In Packet’ 
7939 045375 124 123 123 T24WOF: .ASCIZ ‘TSSR Not Correct After Tiicgs) Mode Bits Set’ 

7940 045452 111 154 154 T24ILA: .ASCIZ ‘Illegel Addrese Bits, Failed To Set ILA “Bit In XSTO' 


7941 045536 111 154 154 T24L0Q@: .ASCIZ ‘Illegal Mode tb ob ao J To Set ILC Bit In XSTO’ 
7942 045617 122 105 101 T24SSR: .ASCIZ ‘READ COMMAND No t Accep 

7943 045651 124 123 123 T24WOE: .ASCIZ ‘TSSR Not Seecee After toRITE DATA Command’ 

7944 045723 124 141 160 T24B0T: .ASCIZ ‘Tape Not At BOT After REWIND Command’ 

7945 045770 104 141 164 T24D0TA: .ASCIZ ‘Date Written To Tape Not Equal To Data Read From Tape’ 
7946 046056 122 105 101 T24EO0T: .ASCIZ ‘READ DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 

7947 046133 124 123 123 T24TM: .ASCIZ ‘TSSR Not Correct After READ COMMAND Re ject’ 

7948 046206 122 145 167 T24RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted 

7949 046255 122 101 115 T24RNC: .ASCIZ ‘RAM Error, Correct Date Pettern Not In Rem‘ 

7950 046330 124 123 123 T24AM3: .ASCIZ ‘TSSR Init. Failed After READ COMMAND’ 

7951 046375 104 162 151 T24O0FL: .ASCIZ ‘Orive 7 Select Failed To Set atare In TSSR' 

7952 046450 124 123 123 T24WOD: .ASCIZ ‘TSSR Not Correct After READ DATA Command, SWB Bit Set’ 
7953 046536 124 123 123 T24WOC: .ASCIZ ‘TSSR Not Correct After READ DATA Command’ 

7954 046607 103 126 103 T24vCK: .ASCIZ ‘CVC Set, Didn’'‘'t Reset VCK In mecgege Buffer’ 

7955 046662 124 123 102 T24BA: .ASCIZ ‘TSBA Not Correct After READ DATA Command’ 


7956 046733 127 122 111 T24WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
7957 047022 122 145 141 T24LON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In XSTO’ 

7958 047104 122 145 141 T24LOP: .ASCIZ ‘Reading L Record Failed To Set RLS Bit In XSTO' 

7959 047166 122 145 163 T24PBP: .ASCIZ Hwee} poet Byte Count Incorrect After Short Record Read’ 
7960 047254 122 145 141 T24TRL: .ASCIZ ‘Reading Long Record Failed To Give Tape Stetus Alert’ 
7961 047342 102 141 163 TST24ID: -ASCIZ ‘Basic Read Data (Forward and Reverse)’ 

7962 .EVEN 

wes F 

7965 ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

7966 iWRITE SUBSYSTEM MEMORY COMMAND 

7967 3 . 
7968 s- ( : 
7969 

7970 047410 T24REST: 

7971 047410 SAVREG sSAVE THE REGISTERS 

7972 047414 012701 044720 MOV @T24PACKET,R1 sSTART OF THE PACK 


ET 
7973 047420 012721 100004 MOV sWRITE SUBSYSTEM MEM. 


#100004, (R1)-+ WITH ACK, 
7974 047424 012721 044730 MOV @T24DATA, (R1)+ ;ADDRESS OF CHARAISTICS DATA BLOCK 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
7975 047430 005021 CLR (R1)+ ;EXTENDED ADDRESS 
7976 047432 012721 000012 MOV #10. ,(R1)> ;SIZE OF DATA BLOCK IN BYTES 
7977 047436 O12721 044742 MOV OT24BFR,(R1)> sADDRESS OF MESSAGE BUFFER 
7978 047442 005021 CLR (Ri) 

7979 047444 012721 000024 MOV 620. ,(R1)+ ;LENGTH OF MESSAGE BUFFER 
7980 047450 005021 CLR (R1)s 
7981 047452 012711 000000 MOV @0,(R1) SELECT DRIVE ZERO 
7982 047456 012702 000030 MOV 024. ,R2 ;NUMBER OF LOCATIONS TO BE CLEARED 
7983 047462 012762 177777 044742 64%: MOV 0177777, T24BFRCR2) ;ALL ONES TO MESSAGE BUFFER 
7984 047470 005742 TST -(R2) NEXT LOCATION 
7985 047472 022702 000000 CMP 00,R2 ;CKECK FOR END OF LOOP 
7986 047476 001371 BNE 643 KEEP GOING UNTIL DONE 
7987 047500 000207 RTS PC ; RETURN 
7988 
7989 ’ 
7990 047502 T24RT2: 
7991 047502 SAVREG ;SAVE THE REGISTERS 
7992 047506 012701 045030 MOV eT24PK2,R1 :START OF THE PACKET 
7993 047512 C12721 100206 MOV #100206 .(R1)+ ;WRITE SUBSYSTEM MEM. WITH ACK, IE 
7994 047516 012721 045060 MOV @T24BF2.(R1)+ ;ADDRESS OF DATA BLOCK 
7995 047522 005021 CLR (R1)¢ EXTENDED ADDRESS 
7996 047524 012721 000006 MOV 06. ,(R1)+ ;SIZE OF DATA BLOCK IN BYTES 
7997 047530 005021 CLR CRid- 
7998 047532 012701 045060 MOV 6T24BF2,R1 ;POINT TO DATA SEL AREA 
7999 047536 005021 CLR (R1)¢ 
8000 047540 005011 CLR (R1) 
8001 047542 000207 RTS PC ;RETURN 
8002 047544 T24RTS: 
8003 047544 SAVREG ;SAVE THE REGISTERS 
8004 047550 012701 045050 MOV @T24PK3,R1 ;START OF THE PACKET 
8005 047554 012721 000000 MOV @0,(R1)> ;CLEAR AREA OUT 
8006 047560 012721 000000 MOV @0,(R1)+ ;ADDRESS OF DATA BLOCK 
8007 047564 005021 CLR (Ride i EXTENDED 
8008 047566 012711 000000 MOV @0,(R1) ;SIZE OF DATA BLOCK IN BYTES 
8009 047572 000207 PC ;RETURN 
8010 047574 ENDTST 
047574 L100S2: 
woh 047574 104401 TRAP  CSETST 
8012 .SBTTL TEST 5S: SPACE RECORDS 
so 
8015 ‘THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
8016 ;RECORDS REVERSE POSITION COMMANDS OPERATE PROPERLY WHEN SPACING 
8017 DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS 
6018 ;I1S VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST 
8019 ; RUN SUCCESSFULLY FOR THI ANINGFUL 
;RESULTS. THIS TEST CONSISTS OF A SERIE SUBTESTS. IN EACH 
8021 T ESTS, THE TAPE IS ENTIRELY WRITTEN WITH REC 
;0F VARY ES AND DATA CONTENT; THE FIRST 4 BYTES OF EACH 
8023 ;RECORD INDICATE THAT RECORD’S RELATIVE POSITION ON TAPE. AFTER 
0028 ‘EACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING 
6025 ;THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
8026 THE EXPECTED RESULT. 
$058 
3 
8029 ;THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS 





012737 
004737 
012700 
004737 
012737 


012737 
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72 
176750 


016064 


000250 
002116 
177772 
177756 
055152 
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SEQ 0179 
at 
a 
i 
' BGNTST <i 
002170 MOV @EPRT2 EPRTSW sSECONDARY ERROR MESS 
JSR PC,KT 3D0N'T NEED LOTS OF MEMORY 
MOV erstesiD RO ASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSeTuP 300 INITIAL TEST SETUP 
002206 MOV @5.LOOPCN PERFORM 5 ITERATIONS 
3¢ 
iTEST S, SUBTEST 1 
& 
VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH 
;THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 
3THE VOLUME CHECK (VCK) FLAG IS SET 
3 
a 
g2 
T25L00P: 
BGNSUB 3>>>>>>>>>>>> an eel >>>>>>>>>>>> 
“"" TRAP ss C$BSUB 
JSR PC, TOSREST :SET COMMAND PACKET 
CLR T25CNT CLEAR THE RECORD COUNTER AREA 
JSR PC, T25RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T2SRTS 3SET UP OTHER COMMAND PACKET 
055152 MOV #65000. , T2SCLY ;SET UP LOOP COUNTER 
PRESHAAEHASLAEARALRRAKAASKESAASESHKEAHRAKERASEHSAAGHSSGASKRHALHERARHASASKHEE 
}ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
s sececcsenosasescosesesosescesonssosesosescossescosesosesesossesess 
S$: JSR PC, SOFINIT 3:00 INITIALIZE ON CONTROLLER 
BCS 10% :8R IF INIT WAS OK 
DELAY 250 ;DELAY IF REQUIRED 
MOV #250, (PC)+ 
MOV LSDLY.CPCI+ 
dEC -6(PC) 
BNE e®* 
DEC -22(PC) 
BNE .-20 
DEC T2S50LY ;DEC DELAY COUNTER 
BNE 54 :8R, IF LOOP IS REQUIRED 
INC FATFLG ;BUMP COUN 
MOV TSSRCRS),R1 ;sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NO 


T OK 
TRAP 


CSEROF 
$01 
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8128 050046 005237 002212 
6132 050052 


INC FATFLG OUNT 
9sans ERRHRD ERRNO, T2580T ,EXPREC i TAPE NOT AT BOT AFTER a 
050054 000770 "toro 


SEQ 0180 
| TEST 5S: SPACE RECORDS 

047736 003650 -WORD SFIERR 
047740 012124 -WORD SFIMSG 

8081 047742 10%: 

8082 047742 013737 002172 055010 MOV UNITN, T2S50SW sSET UP DRIVE NUMBER | 

6083 047750 012704 054770 MOV @T2SPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS ' 

sos $ PRBOSEESESEEEEESEEEEEESSEEEEESEEEEEEEEEESEEESEEEEEOEEEESEEEEEEEEEED 

soe? iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

8089 ; BOOEEEEEEEEEEEEEESEEEEEEEEEEEEEDDEEEEEEEEEEEEDEEESEEESEEDEEDEEEEEE 

6091 047754 004737 010752 JSR PC,.WRTCHR s ISSUE WRITE CHARACTERISTICS 

8092 047760 103407 BCS 153 38R, IF COMMAND ISSUED OK 

8093 047762 005237 002212 INC FATFLG 38 OUNT 

8097 047766 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6098 047770 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC he 
047770 104456 TRAP CSERHRD 
047772 C00766 -WORD 502 
047774 005054 -WORD  WRTMSG 
047776 012124 -WORD SFIMSG 

8108 §8OBO66006006006600660606066006060600606660000060600000000000000008088 

ths ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

aioe ; BOOO06606006066000606060600606060060066000000660000000000000000000000088 

8106 050000 15%: CKLOOP 
050000 104406 TRAP CSCLP1 

8107 050002 004737 011104 JSR PC,.REWIND sCALL_TAPE REWIND COMMAND 

8108 050006 103407 BCS 30% 3BR, IF NO PROBLEM 

8109 050010 010001 MOV RO,R1 sSAVE TS 

6110 050012 005237 002212 INC FATFLG sBUMP COUNT 

6114 050016 ERRHRD ERRNO, T2SRWN,PKTSSR sREWIND NOT ACCEPTED 
050016 104456 TRAP CSERHRD 
050020 000767 -WORD 503 
050022 056125 -WORD T2SRWN 
050024 0121356 -WORD PKTSSR 

6115 050026 30%: CKLOOP sLOOP IF SELECTED 

e196 050026 104406 TRAP CsCLPi 

e117 §9O6066066066006606060000006060000068000000000000000600000000006000806 

sh23 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

siz) ; SESSESEEEESESESEEDSESESEESEEEEEEDEDEEEEEDESEEDEDEEEEEEESEESEDEEEEE 

8123 050030 013701 055020 MOV T25BFR+6,R1 sPICK UP _XSTO 

8124 050034 010102 MOV R1,R2 sSET UP EXPECTED 

6125 050036 052702 000002 BIS #6IT1,R2 sSET BOT BIT IN EXPECTED 

8126 050042 020102 CMP R1,R2 sD0ES EXP = REC'D 

6127 050044 001406 BEQ 40s + te y EQUAL (OK) 





6133 050062 
050062 


34 050064 
sis 050070 


055315 
015564 


104406 
012703 
013737 


013701 
010102 


| TSV7 - HARDWARE TESTS 1-8 
TEST S: SPACE RECORDS 


000400 
003114 


001000 
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055122 


055120 


132772 
055150 


-WORD T2S580T 
-WORD EXPREC 


TRAP  CSCLP1 
MOV 0256. sRECORD SIZE 
MOV FREE. ‘+35R8 ;STARTING WRITE BUFFER ADORESS 

{ SHHAASHHSSASHESHASSHESSSESASSESSAESESESSSSESESEHSESSSESSESSEESSEESSSEE 

WRITE DATA,ACK,CVC*1 COMMAND 


5 
pPOSAAHTAOKEAHASEESHHSKSSHATHETEAEDEOHBEHAHAEHERESHAAREDALAAHESEESSE 


40%: CKLOOP sLOOP IF SELECTED 


MOV #140005, T2SPK3 ;WRITE DATA, ACK CvCot COMMAND 
ie MOV @T25PK3.R4 ;SET UP R4 WITH PACKET ADORESS 
$ 
MOV R3,T25SZ sSET UP RECORD SIZE IN PACKET 
MOV T25cnT OF REE ;LOAD UP RECORD COUNTER IN WRT BUFFER 
ADO » T25CNT GET READY FOR NEXT RECORD 
MOV Ra: - TSDBCRS) s ISSUE COMMAND 
JSR ;WAIT FOR SSR TO SET 
MOV TSSRCRS), R1 :GET TSSR CONTENT 
MOV @SSR.R2 sSET UP EXPECTED 
R1,R2 + ARE THEY E 
BEQ 753 OK 
BIT eBIT2.R1 1eneCK FOR TAPE STATUS ALERT 
BNE 1208 BR. iF OSA IS SET (SUSPECT IS EOT) 
INC FATFLG OUN 
ERRHRD ERRNO, WRTERR,PKTSSR ITSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRO 
; 505 
"WORD URTERR 
"WORD PKTSSR 


758: CKLOOP sLOOP IF SELECTED 


TRAP CsCLP1 


INC R3 sBUMP RECORD SIZE 

CMP #312. ,R3 sEND OF RECORD YET 

BNE 65% 38R, IF MORE RECORDS TO WRITE 
BR 125% sENOUGH RECORDS 


1208: 
$00060000000000000606600006600066000060000600600000060000000000008000088 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xXSTO) 


é 
PRSERRHKAHERASARAEMHEHKSELLHAKHSSARAEHKSESAASASEASSHACAMSEARASHARLADSSHAALABG 


T25BFR+6,R1 sQUICK CHECK FOR EOT SET 
MOV 1,R2 3SET UP EXPECTED 
BIS #81T0,R2 3SET THE EOT BIT XSTO 
CHP R1,R2 sIS THE EOT BIT SET IN XSTO 
8EQ 125% :8R, IF SET (GOOD) 
INC FATFLG : 
ERROF ERRNO, T2SNET,EXPREC ;DEVICE FATAL NOT EOT FOUND ETC. 


CSEROF 
-WORD 506 
-WORD T2SNET 





SEQ 0181 


eee 
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SEQ 0182 
TEST S: SPACE RECORDS 
050242 015564 .WORD EXPREC 
9185 050244 125%: 
4 34 t RASKORKEAOKAEARAAALARKALARASHERAKAKHASLHSOASARKASASHSSSKSERASSERDSHHES 
g 
$189 sISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
3 
333 : RACHASEALASASAHKASSSHARERARRALAAREAEESEROL®§ CHSHRAKKASSSEKSHARAASSS 
8193 050244 004737 011104 JSR PC ,REWIND :CALL TAPE REWIND COMMAND 
8194 050250 103407 BCs 130% ;0R, IF NO PROBLEM 
8195 050252 010001 MOV RO,R1 sSAVE TSSR 
819) 050254 005237 002212 INC FATFLG ;BUMP COUNT 
6200 050260 ERRHRD ERRNO, T2SRWN,PKTSSR sREWIND NOT ACCEPTED 
050260 104456 TRAP CSERHRD 
950262 000773 .WORD 507 
[WORD T2SRUN 
050266 012136 “WORD PKTSSR 
6201 050270 130%:  CKLOOP ;LOOP IF SELECTED 
050270 104406 TRAP =: CSCLP1 
e202 050272 012737 000007 055010 MOV @7,7250SW sSET UP DRIVE NUMBER 
050300 012704 054770 MOV @T25PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 
6205 3 AKHRAALACRACAHCKEHASSCHAHHAAKAAESAKLESRSESAGASHEHAKESAKSASADHEAEAHKEDTASHASSEHSE 
$ 
8307 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
i 
tt] t SKEAELARKAKALASHRAARERSPRAKSEKAKEKHSRKASVSAKKSAREKSABHACESESHKKASRSAARSKE 
6211 004737 010752 JSR PC, ,WRTCHR sISSUE WRITE CHARACTERISTICS 
8212 050310 103407 ecs 140% 3BR, IF COMMAND ISSUED OK 
621 12 005237 002212 INC FATFLG ;BUMP COUNT 
8217 050316 010001 MOV RO,R1 3s SAVE 
B18 ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
050320 104456 TRAP  CSERHRO 
050322 000774 . WORO 
050324 905034 WORD unTHsG 
6219 950380 140%:  CKLOOP sSCOPE LOOP —_ staan 
050330 100406 a TRAP =s-s« CSC P12 
8220 737 002216 TST EXTFEA sCHECK FOR EXTENDED FEATURES 
622 001044 Sa 160% 36R IF SWITCH IS ON 
se2e 050340 112737 000200 055371 MOVB § 0200,7258S1 sWRITE MISCELLANEOUS CONT/READ STATUS 
6224 050346 312737 000010 55130 MOVB #10, 125850 sFUNCTION SELECTION BIT (TURN ON EXTFEA tu SWITCH) 
6225 050354 012704 05Si0u HOV eT sMRITE SUBSYS MEM PACKET 
e226 050360 010465 000000 HOV R4, TSOBCRS) s ISSUE 
050364 004737 016426 JSR SSR ;WAIT FOR SSR 
6226 303407 ecs ¢ 30R, IF MO ERROR 
$228 10001 HOV RO.R1 sERROR, SAVE TSSR 
005237 002212 INC FATFLG susp COUNT 
6234 ERRHRD ERRNO, T2SSSR.PKTSSR 3TSSR NOT CORRECT AFTER URT. MISCELLANEOUS 
perere} “on Sos 
. 
050404 055154 ‘word 46s« T2Sssr 
050406 012136 "WORD PKTSSR 
6235 050410 150%:  CKLOOP ;LOOP IF SELECTED 
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TEST S: SPACE 
050410 
36 


RECORDS 


104406 
012737 
012704 


012124 
104406 


000007 
054770 


010752 
002212 


000002 
000100 
002212 


140010 
000001 
055120 
000000 
016340 
000002 
100306 


002212 
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055010 


055120 
055122 


MOV #7, T2S0SW 
MOV @T2SPACKET ,R4 


TRAP CSsCLPi 
sSET UP _ DRIVE NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 


{RRAAAASARSAARERESEARAESEEASEREREEEESEAAEESEAEERESSESESSEAAESSEEEEES 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
JRRAAAAAAAAARSHESEARESESERESEEEAEEEEAAESESESEEESSSEEESEEEEESESESEEEESS 


1608: 


1708: 


JSR PC ,WRTCHR 
160% 
FATFLG 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SFIMSG 


MOV TSSRCRS),R1 
BIT @OFL .R1 
170% 


CKLOOP 


I FATFLG 
ERROF ERRNO, T2SOFL,SFIMSG 


s ISSUE WRITE CHARACTERISTICS 
s6R, COMMAND ISSUED OK 


s;BUMP COUNT 
sSAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC > 


C#ERHRD 
. TWORO 510 
-WORD WRTMSG 
WORD SFIMSG 


sSCOPE LOOP 
TRAP CsCLP1 
3GET TSSR CONTENTS 
;CHECK FOR THE OFFLINE BIT SET 
s8R, IF OFFLINE (GOOD) 


sBUMP COUNT 
;OFF LINE SHOULD HAVE BEEN SET (BAD) 
CSERDF 


;LOOP IF SELECTED 
TRAP CsCLP1 


j PARAESSEEEEEEEESSEEEEEEEEEEESEEEEESEEEEEEEEEEEOEDEEEOO0000466868088 
; 
s;SPACE FORWARD COMMAND IN PLACE 


$ 
FRREREAEAHEAE AERA AHARAREEARHAAAEERAARERAAASERSEARAARHES LEAMA KAAEHEH 


180% 


1908: 


MOV 3 *fotR T25PK3 


MO 

MOV OT25PK3,R4 
MOV R4, TSOBCRS) 
JSR PC. WAITF 


MOV TSSR(RS).R ; 
MOV eSeR!SC?OFL !BIT1!8IT2, R2 
A R1,R2 


INC FATFLG 
ERRHRD ERRNO, T25TM,PKTSSR 


CKLOOP 
ENDSUB 


sSPACE FORWARD COMMAND IN PLACE 
sNUMBER OF RECORDS TO SPACE 
:R4 = POINTER TO PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
GET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
iB. IF OK ESP. FUNCTION REJECT 


UMP COUNT 
iTSSR INCORRECT AFTER TAPE MOTION CMD 
TRAP CsERHRD 
$12 
WORD T2STM 
WORD PKTSSR 


;LOOP IF SELECTED 
CsCLP1 


AP 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


SEQ 0183 


as 
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TEST 5S: SPACE RECORDS 


S0S64 104403 
86 050566 023727 002212 
62686 050576 004737 017272 
050602 


050642 012124 
6321 050644 012737 000007 


8322 

6323 050652 012704 054770 
8324 

8325 

8326 

8327 

8328 

8329 

6330 

8331 050656 004737 010752 
83 103407 

3 005237 002212 
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000017 


055010 


SEQ 0184 


L10072: 
CsESUB 
CMP FATFLG, #15. 31S ERROR COUNT AT 25 
BLO 999% ;8R, IF LESS THAN 25 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 
999%: 
3¢ 
i TEST S. SUBTEST 2 
i VERIFIES THAT A SPACE RECORDS REVERSE COMMAND \/ITH 
;THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 
sTHE VOLUME CKECK (VCK) FLAG IS SET. 
o 
a 
3 
: BGNSUB 3>>>>>>>>>>>> — SUBTEST >>>>>>>>>>>> 
2: 
TRAP Cs68SUB 
JSR PC, T2SREST ;SET COMMAND P4CKET 
JSR PC, T25RT3 ;SET UP OTHER COMMAND PACKET 
JSR PC. T25RT2]? ;SET UP OTHER COMMAND PACKET 


{ PRROAAESEEEEEESERESEEEEEESERESEEEESEEEEEEEEDEEDEEDEEEEEEEEEEEODEEE 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


6 
FSSSSHHSSHSSSASSSSSSSSSSSSEHSAHASSSESHASSSASSHSSSSASSSESEASSEHEKESAEESE 


JSR PC,.SOF INIT 300 INITIALIZE ON CONTROLLER 
Bcs 10% ;8R IF INIT WAS OK 
INC FATFLG BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO,SFIERR,SFIMSG SFATAL ERROR TSSR WAS NOT = 
TRAP CSEROF 
-WORD 513 
“WORD SFIERR 
-WORD  SFIMSG 
108: MOV #7, T2S50SW sSET UP DRIVE NUMBER 
MOV @T2SPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
j PORAAAASEEEAESEAEEESEHESESEEESEDERESEEDEEEEEEEESERESESEEEEEEEEEESE 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
OPTI TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT TOT TT TTS 
JSR PC .WRTCHR sISSUE WRITE CHARACTERISTICS 
6cs 15$ ;8R, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
TRAP hy 
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SEQ 0185 
TEST 5S: SPACE RECORDS 
050676 005054 .WORD WRTMSG 
setae 050700 012124 “WORD SFIMSG 
tot {PASSASASEAASESSSSSEASHSSSEESSSEHAEESSEEAESESEASEESESEEESESESEESESSEEE 
86341 F 
8342 ;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
j ows WPTTT TTT TT TTT TT TTTTTTTTTTTTTTTTTTTTTTITTTT TTT TT TTT TTT TTT ttt 
| 8346 050702 15#:  CKLOOP 
050702 104406 TRAP = C$CLP1 
8347 050704 004737 011104 JSR PC, REWIND ;CALL TAPE REWIND COMMAND 
8348 050710 103407 Bcs 308 ;6R, IF NO PROBLEM 
8349 050712 010001 MOV RO,R1 ;SAVE TSSR 
8350 050714 005237 002212 INC FATFLG ;BUMP COUNT 
8354 050720 ERRHRD ERRNO, T2SRWN,PKTSSR ;REWIND NOT ACCEPTED 
050720 104456 TRAP § CSERHROD 
050722 001003 .WORD 515 
724 0©56125 7 WORD 
050726 012136 "WORD PKTSSR 
8355 050730 308: CKLOOP ;LOOP IF SELECTED 
050730 104406 TRAP = CSCLP1 
8356 050732 005737 002216 140%: TST EXTFEA ;CHECK FOR EXTENDED FEATURES SW SWITCH 
8357 050736 001044 BNE 1608 ;6R IF SWITCH IS ON 
8359 050740 112737 000200 055131 MOVB 200,T258S1 WRITE MISCELLANEOUS CONT/READ STATUS 
8360 050746 112737 000010 055130 MOVB 10, 7258S0 ;FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
8361 050754 012704 055100 MOV OT25PK2,R4 }WRITE SUBSYS MEM PACKET 
8362 050760 010465 000000 MOV R4, TSDBC(RS) ;ISSUE COMMAND 
8363 050764 004737 016426 JSR PC, CHKTSSR sWATT | FOR SSR 
8364 050770 103407 BCS 150$ BR NO ERROR 
8365 050772 010001 MOV RO,R1 ERROR SAVE TSSR 
8366 050774 005237 002212 INC FATFLG UMP COUNT 
8370 051000 ERRHRD ERRNO, T25SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
051000 104456 TRAP — CSERHRD 
051002 001004 .WORD 51 
1004 “wORD T25SSR 
051006 012136 "WORD PKTSSR 
8371 051010 150%:  CKLOOP ;LOOP IF SELECTED 
051010 104406 TRAP C$CLP1 
8372 051012 012737 000007 055010 MOV 07, T25D0SW ;SET UP DRIVE NUMBER 
8373 051020 012704 054770 MOV @T2SPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
eee ,CEKAEARREAKSEAAEAEEAKHRHEKKRERSKRASEHAKKHSHESSSSEAERIGCKHEAAKEAHSSRAKASH 
8376 3 
8377 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3 
<a PRORDORESOREERAADEHEAARAHEEAEARARLARHHEAKRKKAUNSASHAKALAS SASS HARASS SSH 
8381 051024 004737 010752 JSR PC ,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
8382 051030 103407 BcsS 160$ ;8R, IF COMMAND ISSUED OK 
8383 051032 005237 002212 INC FATELG ;BUMP COUNT 
8387 051036 010001 MOV ‘SAVE CONTENTS OF TSSR 
8388 051040 ERRHRD ERAND.WRTHSG. SFIMSG ;WRITE CHARACTERISTISC FAILED 
051040 104456 TRAP § CSERHRD 
051042 001005 .WORD 517 


051044 005054 -WORD WRTMSG 





ES a 
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| 
| 
| 
| 
| 


1162 

6421 051164 
051164 
051164 
6422 051166 
6423 051174 


8424 051176 
8425 051202 


36 
86437 051202 


TEST 5S: SPACE RECORDS 


012124 


012124 
104406 


012737 


000002 
000100 
002212 


100410 055120 


000001 
055120 


000000 
016340 
000002 
100306 


002212 


002212 
017272 
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055122 


000017 


SEQ 0186 
60% CKLOOP SCOPE LOOP scant’ “vce | 
1 : KL 3 j 
TRAP —- C$CLP1 
MOV TSSR(RS),R1 ;GET TSSR CONTENTS 
BIT @OFL.R1 sCHECK FOR THE OFFLINE BIT SET 
BNE 170% ;8R, IF OFFLINE (GOOD) 
INC FATFLG : OUNT 
ERRDF ERRNO, T25OFL,SFIMSG ;OFF LINE SHOULD HAVE BEEN SET (BAD) 
TRAP CSEROF 
.WORD 518 
"wORD T2S0FL 
‘WORD SFIMSG 
170%:  CKLOOP ;LOOP IF SELECTED 
TRAP © CSCLP1 


$ PORAEAEEEERESEEEEEEEEEESEEREESEEEEEEEEEEEEEEDEEEEEEDEEEEEEEEDEEEEEE 
‘ 
sSPACE REVERSE COMMAND IN PLACE 


é 
FPRAREKRAAARAERAAEEAEERAHAHRHEAAAAAHEEEAHAERASSERSARAKHHEHHAKREREAEHARESSE 


1808: MOV #100410, T25PK3 sSPACE REVERSE COMMAND IN PLACE 
MOV #1, T25R8 ;NUMBER OF RECORDS TO SPACE 
MOV @T25PK3, R4 iR4 = POINTER TO PACKET 
“0V R4, TSDBCRS) s ISSUE COMMAND 
JSR PC ,WALTF sWAIT FOR SSR TO SET 
MOV TSSRC(RS).R ;GET TSSR CONTENTS 
MOV BSeRiSCOFL !BIT1!61T2, R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY E 
BEQ 190% ;BR. IF OK ESP. FUNCTION REJECT 
INC FATFLG 3 T 
ERRHRD ERRNO, T25TM,PKTSSR s;TSSR INCORRECT AFTER TAPE MOTION CMD 
TRAP CSERHRD 
«WORD 19 
WORD T25TM 
> -WORD PKTSSR 
190%: CKLOOP ;LOOP IF SELECTED . 
TRAP CSCLP1i 
ENDSUB 3>>>->>>>>>>> END SUBTEST >>>>>>>>>>>> 
10073: 
TRAP CsESUB 
CMP FATFLG,@15. :IS ERROR COUNT AT 25 
BLO 99 ;B8R, IF LESS THAN 25 
9998 JSR PC ,CKDROP sTRY TO DROP THE UNIT 


3¢ 
;TEST S. SUBTEST 3 


;VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE 
sRECORD OFF BOT AND CAUSES BOT STATUS TO BE CLEARED. 


se BGNSUB 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 








TSV7 - HARDW.*- TESTS 1-8 MACRO YOS.02 Monday 16-Sep-85 13:41 Page 77-83 


104456 TRAP CsERHRD 
-WORD S22 


SEQ 0187 
TEST S: SPACE RECORDS 
051202 15.3: 
051202 104402 TRAP  C#BSUB 
| 6438 051204 004737 056336 JSR PC, T2SREST :SET COMMAND PACKET 
| g439 051210 004737 056430 JSR PC. T2SRT2 :SET UP OTHER COMMAND PACKET | 
! g44o 051214 004737 056472 JSR PC, T25RT3 ;SET UP OTHER COMMAND PACKET 
Her SPRAAAHASSAAHASSSEEEASSSESESEAREEEEAESERERAEESSESSEESSESLEEASESEAESESESES | 
oae4 }ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
aeat PPT TTT TT TTT TT TTT TTT TTT TTT TTT TTT TTT TTTTTTTTTTTT TTT TTT TTT TTT tT te 
8448 051220 004737 016064 JSR PC, SOFINIT ;00 INITIALIZE ON CONTROLLER 
8449 051224 103407 BCS 10% ;8R IF INIT WAS OK 
8450 051226 005237 002212 INC FATFLG 8 OUNT 
8454 051232 010001 MOV RO.R1 ;CONTENTS OF TSSR REGISTER 
8455 051234 ERROF ERRNO,SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
051234 104455 TRAP  CSEROF 
051236 01010 .WORD 520 
051240 003650 "WORD SFIERR 
051242 012124 "WORD SFIMSG 
8456 051244 013737 002172 055010 10%: MOV UNITN, T250SW ;SET UP DRIVE NUMBER 
B438 051252 012704 054770 MoV @T2SPACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
ase J SHAAAAAESAERAAEASEAAEESESEEESEESSEREAEEAEASSSSESASESEAEESESSEESE SESE 
3 
e462 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
ones PPT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
8466 051256 004737 010752 JSR PC,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
8467 051262 103407 BCS 153 ;8R, IF COMMAND ISSUED OK 
8468 051264 005237 002212 INC FATFLG ;BUMP COUNT 
8472 051270 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
8473 051272 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
051272 104456 TRAP  CSERHRD 
051274 001011 .WORD 521 
051276 005054 "WORD WRTMSG 
ost 051300 012124 “WORD SFIMSG 
ohh PRORKHEEEAGAEHAAAEASHEAEAEREEHREAEREAAERKEAARARAEAE RARER RARE HARSHA HARS 
8477 }ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
48 | edeeeeeasesasensasaseseseseasesesesencasasesesescasasasescseseeces 
8481 051302 15$: | CKLOOP 
051302 104406 TRAP  CSCLP1 
8482 051304 004737 011104 JSR PC, REWIND ;CALL TAPE REWIND COMMAND 
8483 051310 103407 BCS 308 : ;6R, IF NO PROBLEM 
8484 051312 010001 MOV RO,R1 ;SAVE TSSR 
8485 051314 005237 902212 INC FATFLG ;BUMP COUNT 
6489 031320 ERRHRD ERRNO, T2SRWN,PKTSSR ;REWIND NOT ACCEPTED 





| SV? - HARDWARE TESTS 1-8 
| 


T 

TEST 5S: SPACE RECORDS 
012136 
104406 


98 051332 013701 
6499 051336 010102 
8500 02 


104406 
051366 012737 


6517 051374 012737 
8518 051402 012704 


8528 051440 005237 
8532 051444 
051444 1 


140010 
055120 


000000 
016340 
000002 
000200 


002212 
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055122 


055120 


-WORD PKTSSR 
TRAP CsCLP1 
{ PRRORORESEESERESERESEEEEESSRESSESEEEEEEESEESEESSEESEEREEEEEEEEEESS 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
RARER EAAREREEAAEAAASERESAAARHEGHAKARKACHHAREARALKRERASHEASESA HHS 


308: CKLOOP sLOOP IF SELECTED 


MOV T25BFR+6,R1 sPICK UP_XSTO 

MOV R1,R2 sSET UP_ EXPECTED 

BIS o8iT1,R2 ;SET BOT BIT _IN EXPECTED 

CMP R1,R2 sD0ES EXP = REC'D 

BEQ 403 3BR, IF EQUAL COK) 

INC FATFLG ;BUMP 

ERRHRD ERRNO, T2580T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
TRAP C#ERHRD 
-WORD 523 
«WORD T2SB80T 
-WORD  EXPREC 

40%: CKLOOP sLOOP IF SELECTED 


MOV #000001 , T25RB sNUMBER OF RECORDS TO SPACE OVER 
{ PRAAERESEEESEESEESERESESEAEEEEESEESEEEDESEEESERESEEEEEEEEEEDEEDERE 
; SPACE FORWARD ,ACK,CVC=1 COMMAND 
OTT T TTT TT TT TTT TTT TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTiTrrr erry TTT ttt Ty 


MOV #140010, T25PK3 s;SPACE FORWARD,ACK,CVC=1 COMMAND 


ese MOV @T25PK3,R4 3SET UP R4 WITH PACKET ADDRESS 
R4,TSOBCRS) s ISSUE COMM 
JSR : F sWAIT FOR SSR_TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY 
BEQ 75% :BR, IF OK 
BIT #BIT2,R1 sCHECK FOR TAPE STATUS ALERT 
BNE 75$ 76R. IF TSA IS SET (SUSPECT IS EOT) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T25WDE ,EXPREC iTSSR INCORRECT AFTER READ DATA 
TRAP CsERHRD 
-WORD 324 
-WORD T2SWDE 
-WORD EXPREC 
75%: CKLOOP ;LOOP IF SELECTED 
anes TRAP CsCLPi 


| POBERESEEEEEEEEEEEEEEEEEEEEEEEOE4$60066000000000006000000000000008 
: 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
PRAKERKRREHAKRAKEREREREAARARRAAKESHERAHRERERHKAKHAREKLAREE SARK HSHRRAKS RAH 


SEQ 0188 
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MACRO YOS.02 Monday 16-Sep-85 13:41 Page 77-85 7 
Mi . : — SEQ 0189 





8542 051456 013701 055020 MOV T2SBFR+6,R1 sQUICK CHECK FOR BOT SET 
8543 051462 010102 MOV R1,R2 sSET UP EXPECT 
051464 042702 000002 BIC eeiri. R2 ;CLEAR THE BOT BIT (XSTO) 
8545 051470 10 CMP R1,R2 :I1S THE EOT BIT SET IN XSTO 
8546 051472 001406 BEQ :8R, IF SET (GOOD) 
8547 051474 005237 002212 INC FATFLG :BUMP COUNT 
8551 051500 ERRHRD ERRNO, T2S6NC,EXPREC :BOT NOT CLEARED AFTER SPACE FROM BOT 
051500 104456 TRAP  CSERHRD 
051502 001015 .WORD 52 
051504 055610 ‘WORD T25BNC 
051506 015564 "WwORD €EXPREC 
8552 051510 125%:  CKLOOP 
051510 104406 TRAP = CSCLP1 
8553 051512 004737 056472 JSR PC, T25RT3 ;CLEAN UP PACKET 
8554 051516 012737 000401 055126 MOV 0257. ,T25SZ ;SET THE CORRECT SIZE UP 
ooas 3 $O60606466066600604666666646646666646666666646664664606660664644466440468068 
3 
9558 ;READ DATA COMMAND IN PLACE 
: 
Sore t SHLAASHASAEASKAKSSESSSSSASEKASAASESRAASESSESSEASSASSHESSAKESSESASEESEKEAESE 
8562 051 012737 140001 055120 MOV #140001, T25PK3 ;READ DATA COMMAND IN PLACE 
003114 055122 MOV FREE, T25R8 ;READ BUFFER ADDRESS TO PACKET 
055120 MOV OT25PK3,R4 3R4 = POINTER TO PACKET 
000000 MOV R4, TsDB(RS) sISSUE COMMAND 
016340 JSR PC. WAITF ;WAIT FOR SSR TO SET 
000002 MOV TSéRCRS), R1 :GET TSSR CONTENTS 
000200 MOV R2 ;SET UP EXPEC 
CMP ' ;ARE THEY EQUAL 
BEQ ;BR, IF OK ESP. FUNCTION REJECT 
002212 INC FATFLG 38 OUNT 
ERRHRD ERRNO,RDERR,PKTSSR ;TSSR INCORRECT AFTER READ DATA CMD 
TRAP  CSERHRD 
.WORD 526 
"WORD RDERR 
"WORD PKTSSR 
190%: CKLOOP ;LOOP IF SELECTED 
TRAP  C$CLP1 
131302 MOV @FREE,R1 :GET FIRST WORD FROM BUFFER 
000001 MOV @1,R2 SET UP EXPECTED 
CMP Ri. ;WAS RECORD NUMBERED 1 
BEQ tOR IF CORRECT RECORD 
002212 INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T2SWNG,EXPREC }SHOULD HAVE BEEN RECORD NUMBER 2 
TRAP CSERHRD 
.WORD 527 
“WORD T2SWNG 
“WORD €EXPREC 
200%: CKLOOP 
TRAP  C$CLP1 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
110074: 
TRAP CSESUB 
002212 000017 CMP FATFLG, #15. ;IS ERROR COUNT AT 25 
BLO 999% 38R, IF LESS THAN 25 





8590 051652 
6591 051656 


004737 


104402 
004737 
004737 
C04737 


SO 
012124 
013737 


012704 


004737 
103407 
005237 
010001 
104456 
001021 
005054 
012124 
104406 


| 
| TSV7 - HARDWARE TESTS 1-8 
| TEST S: SPACE RECORDS 


017272 


056336 
056430 
056472 


016064 
002212 


002172 
054770 


010752 
Ov2212 
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055010 


JSR PC ,CKDROP sTRY TO DROP THE UNIT 


999%: 

3¢ 

3 

‘paad 5S, SUBTEST 4 


i VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK 
sOVER THE FIRST RECORD ON TAPE. 

3 

3 

te 





BGNSUB 3 >>>>>>>>>>>> og Sarees >>>>>>>>3>>> 
TRAP Cs6SUB8 

JSR PC, T2SREST :SET COMMAND PACKET 

JSR PC, T2SRT2 3 iSET UP OTHER COMMAND PACKET 

JSR PC, T25RTS 3SET UP OTHER COMMAND PACKET 


§ PROSESEEEEEEEEEEEEEEEEEEOEEEEEEEEEEEEEEEE66600006866066060060000860806 
i 

sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

: SESEEEE KESEEEEEEEEEDEEEEEEEEEEEE EE EEOOO004665060000000006060000000068 


PC, SOFINIT 300 INITIALIZE ON CONTROLLER 
os 20% 2 oe INIT WAS OK 


FATFLG 3B COUNT 
Vv RO,R1 ;CONTENTS OF TSSR REGISTER 

ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
T CSEROF 
-WORDB 528 
-WORD SFIERR 
-WORD  SFIMSG 

208: MOV UNITN, T250SW sSET UP ORIVE NUMBER 
MOV @T2SPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


{ PORREEEEEOEEEEEEEEEEEEEEEEEEEEEEEEEEEO6000060009600046000466000488088 
; 

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

i 

{PRESSES ESEEEEEEEEEEEEEEEEEEEEEEEEEE0$$6060000000060600000000000888 


JSR PC ,.WRTCHR sISSUE WRITE CHARACTERISTICS 
6cs 25% ae 4 — ISSVEO OK 


INC FATFLG ; OUN 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC F > 
- WORD 
TRAP 


25%: CKLOOP sLOOP IF SELECTED 


C#ERHRD 
S29 


WRTMSG 
SFIMSG 


CsCLPi 


SEQ 0190 


| 





! 
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004737 011104 
103407 


005237 002212 


013701 055020 
02 


012703 000001 
004737 010556 


000002 
005237 002212 
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§ POSREAREEAEEASEEEESESEEEESESEEESEEEESESEEESSESSSSEEEESEEEESEEEOEES 
: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


i 
PRSERRERORRARAE AETHER ARHEEEARARHEKAEARSEHEHRARSAREHKERRERAAHAASHEAAHARSS 


JSR PC REWIND :CALL TAPE REWIND COMMAND 
BcS 30% ;6R, IF NO PROBLEM 
;SAVE TSSR 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T2SRWN,PKTSSR ;REWIND NOT ACCEPTED aie 
-WORD 
“WORD 
"WORD 
308: CKLOOP ;LOOP IF SELECTED 
TRAP 


{ PRRSEERESEESEEEEEEEEEEEEEEEEEEEEOEE6060000600000000000000000000088 
; 

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

; REESE EAREERESESEESEEEEEESEEEEEAEEEEEEEEEEEEEEOEDEEEE4O00008000088 


MOV a ea oR1 sPICK UP XSTO 


MOV 1,R2 3SET UP_EXPECTED 

61S @81T1,R2 sSET BOT IT IN EXPECTED 

CMP R1,R2 sD0ES EXP = REC'D 

BEQ 40% BR. IF EQUAL (OK) 

INC FATFLG OUNT 

ERRHRD ERRNO, T25B0T ,EXPREC ; TAPE NOT AT BOT AFTER — 
- WORD 
WORD 
- WORD 

40$: CKLOOP ;LOOP IF SELECTED 

TRAP 


PReORREKSASESHRAKSARAAEKEASAEASHESEAKHEAHEARAAEHKHARSEHREREAHAAREREDARSERSS 


SISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 


SEQ 0191 


sBIT 15 SETS DIRECTION - O=FORWARD 1*REVERSE 
; 
{SORES OEOEEOEEEOOO4006606000000660600004000000000000000080000800008 
MOV #000001 ,R3 sNUMBER OF RECORDS TO SPACE FORWARD 
JSR PC, SPACE PCALL SPACE COMMAND 
BCS 50% sCHECK FOR ERROR 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T2SWOE , SFFMSG sSPACE FORWARD FAILED 
TRAP CSERHRO 
-WORD 532 
-WORD T2SWDE 
-WORD  SFFMSG 


50$: CKLOOP 


sLOOP IF SELECTED 
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+944 052076 012737 000001 055122 MOV #1, T25R8 sNUMBER OF RECORDS TO SPACE OVER 
sess $O0000900006000000000006000006660006000066000606600060000000600008008 \ 
86 3 
444 sSPACE REVERSE .ACK,CVC=1 COMMAND 
3 
544 § O8OOO00000600060006000000000660660060066006606600660600060000080608088 
6701 052104 012737 140410 055120 MOV #140410, T25PK3 sSPACE REVERSE .ACK,CVC=1 COMMAND 
ph astte 012704 055120 650 MOV @T25PK3 ,R4 3SET UP R4 WITH PACKET ADDRESS 
8704 052116 010465 000000 MOV R4,TSOBCRS) sISSUE COMMAND 
6705 052122 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
8706 052126 016501 000002 MOV TSSRCRS),R1 3GET TSSR CONTENTS 
8707 OS2i132 012702 000200 MOV @SSR,R2 3SET UP EXPECTED 
8708 052136 020102 CMP R1,R2 sARE THEY EQUAL 
8709 052140 001406 BEQ 75$ 368R, IF OK 
8710 052142 005237 002212 INC FATFLG sBUMP COUNT 
6714 052146 ERRHRD ERRNO, T2SWDE,PKTSSR :TSSR INCORRECT AFTER READ DATA 
052146 104456 TRAP cs 
052150 001025 533 
1 055235 -WORD T2SWDE 
052154 012136 5 PKTSSR 
8715 052156 75$: CKLOOP ;LOOP IF SELECTED 
052156 104406 TRAP CSCLPi 
8716 052160 1208: 
8717 052160 012703 000400 MOV #256. .R3 sRECORD SIZE 
ari 052164 013737 003114 055122 MOV FREE, T25RB sSTARTING READ BUFFER ADDRESS 
e720 §O60066066000600600000660066060666660660600000000000000060600000060008 
1 3 
ore sREAD DATA,ACK,CVC=1 COMMAND 
3 
eves § OO0006600046060000666005606660000664804600004660000660060606000000008 
8 
8726 052172 012737 140001 055120 MOV #140001, T25PK3 sREAD DATA,ACK,CVC=1 COMMAND 
8727 052200 012704 055120 1658: MOV @T25PK3,.R4 ;SET UP R4 WITH PACKET ADDRESS 
8726 052204 010337 055126 MOV R3,T25S8Z :SET UP RECORD SIZE IN PACKET 
8729 052210 010465 000000 MOV R4, TSOBCRS) ISSUE C 
8730 052214 004737 016340 JSR »WAI sWAIT FOR SSR TO SET 
8731 052220 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
8732 052224 012702 000200 MOV @SSR,R2 3SET UP EXPECTED 
8733 052230 020102 CMP R1,R2 sARE THEY EQUAL 
6734 O0S2232 001406 BEQ 170% 3BR, IF OK 
8735 052234 005237 002212 INC FATFLG sBUMP COUNT 
240 ERRHRD ERRNO,RDERR,PKTSSR sTSSR INCORRECT AFTER READ DATA 
240 104456 TRAP CSERHRD 
052242 001026 -WORD 534 
052244 005204 -WORD RDERR 
052246 012136 WORD PKTSSR 
8740 052250 1708: CKLOOP 3;LOOP IF SELECTED 
052250 104406 RAP CSCLP1 
8741 OS2252 017701 130636 MOV @FREE,.R1 3GET FIRST WORD FROM BUFFER 
8742 052256 012702 000000 MOV @0,R2 :SET UP EXPECTED 
8743 052262 020102 CMP R1,R2 sWAS RECORD NUMBERED 1 
8744 052264 001406 BEQ 200% 38R, IF CORRECT RECORD 


8674S 052266 005237 002212 INC FATFLG sBUMP COUNT 
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| SEQ 0193 
| TEST S: SPACE RECORDS 
6749 052272 ERRHRD ERRNO, T25WNG,EXPREC ;SHOULD HAVE BEEN RECORD NUMBER 1 
oS2272 1 TRAP CsERHRD | 
052274 001027 - WORD 35 ! 
052276 055525 -WORD T2SWNG 
8730 pert ed 015564 ‘ on, -WORD EXPREC 
104406 TRAP CSCLPi 
8751 052304 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
052304 L10075: 
104403 TRAP CsESUB 
8752 052306 023727 002212 000017 CMP FATFLG, #15. sIS ERROR COUNT AT 25 
8753 052314 103402 BLO 999% :BR, IF LESS THAN 25 
8754 052316 004737 017272 JSR PC ,CKDROP ; TRY TO OROP THE UNIT 
8755 052322 999%: 
8756 
6757 3¢ 
8758 3 
ks ‘ina 5S. SUBTEST 5 
8761 iVERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A 
8762 terrae IPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 
8763 MAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE, 
6764 ; WHICH EVER IS LESS. 
8765 3 
8766 8 
8767 3 
8769 = 
8770 052322 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
052322 TS.5: 
104402 TRAP csesus 
8771 052324 004737 056336 JSR PC, T25REST 3SET COMMAND PACKET 
8772 052330 004737 056430 JSR PC, omnis iSET UP OTHER COMMAND PACKET 
8773 052334 004737 056472 JSR PC, T25RTS 3SET UP OTHER COMMAND PACKET 
8774 052340 013737 055150 055146 MOV resent T25CN2 sHOLD NUMBER OF RECORDS 
8775 052346 162737 000002 055146 SUB sACTUAL NUMBER OF RECORDS ON TAPE 
errs 052354 013737 055150 055152 MOV TSSCNT.TSSOLY ;SET UP REWIND DELAY COUNTER 
errs § 90060600600066066060660600068660606606000606006650668060606606666606600660606 
3 
are sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
Fy 
ores § 9O0606460666066000006600600000006000606660660065800600680606060060000000688 
8784 052362 004737 016064 108: JSR PC,SOFINIT 3:00 INITIALIZE ON CONTROLLER 
8785 052366 103427 Bcs 20% 38R IF INIT WAS OK 
8786 052370 DELAY 250 sWAIT ABOUT .25 SECONDS 
052370 012727 0v0250 MOV @250.(CPC)+ 
052374 000000 .- WORD 
052376 013727 002116 MOV LSOLY.CPC)-« 
052402 000000 . WORD 
005367 177772 DEC -6(PC) 
052410 001375 BNE 74 
052412 005367 177756 DEC -22(PC) 
052416 001367 BNE .-20 
8787 052420 005337 055152 DEC T2S50LY sDEC COUNTER 
8786 052424 001356 BNE 10% 36R, IF MORE LOOPS REQUIRED 








| 

i 
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SEQ 0194 


8789 052426 016501 000002 MOV TSSRCRS).R1 sCONTENTS OF TSSR REGISTER 
8790 052432 005237 002212 INC ATFLG sBUMP COUNT ; 
6794 052436 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
052436 104455 TRAP CSEROF 
052440 001030 -WORD 536 
052442 003650 -WORD SFIERR 
052444 012124 -WORD SFIMSG 
8795S 052446 208: 
8796 052446 013737 002172 055010 MOV UNITN, T250SW sSET UP _UNIT NUMBER 
p Lad 052454 012704 054770 MOV @T2SPACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 
Tae j PROCEROSEEEREESEEEERESERELESEEEEESEESESEDESESESESESESESEEESESESESE 
’ 
8801 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
’ 
$808 jORSSSSSSESESEEEESESEDESESEDESESESESESESESESESESEEEDESEEESEEEESEEEE 
6805 052460 004737 010752 JSR PC, ,WRTCHR sISSUE WRITE CHARACTERISTICS 
6806 052464 103407 BcS 25% 3BR, IF COMMAND ISSUED OK 
052466 005237 002212 INC FATFLG sBUMP COUNT 
6611 052472 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
6612 052474 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
052474 1 TRAP CSERHRD 
052476 001031 -WORD 537 
-WORD WRTMSG 
OS2502 012124 -WORD SFIMSG 
68613 052504 25%: CKLOOP sLOOP IF SELECTED 
ens 052504 104406 TRAP CsCLP1 
esis §O0000006000060000006000000000006066006060060000600000000000000000088 
; 
th sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 
8819 j PRSOSSESESSESESESESERESEREREREREEESEEDEREEEEEEDESESESEEEEEEESESES 
68621 052506 004737 011104 JSR PC REWIND sCALL_ TAPE REWIND COMMAND 
ose 052512 103407 ecs 30% s8R, IF NO PROBLEM 
68623 052514 010001 MOV RO,R1 sSAVE TSSR 
6824 052516 005237 002212 INC FATFLG sBUMP COUNT 
8628 052522 ERRHRD ERRNO, T2SRWN,PKTSSR sREWIND NOT ACCEPTED 
OS2S22 104456 TRAP CSERHRD 
052524 001052 -WORD 538 
OS2526 056 -WORD T2SRWN 
052530 0121356 -WORD PKTSSR 
6829 052532 308: CKLOOP sLOOP IF SELECTED 
OS2S32 1 TRAP CSCLP1 
8830 052534 013701 055146 MOV T25CN2,R1 sNUMBER OF RECORDS ON TAPE 
8831 052540 012702 1/7776 MOV 65534. .R2 sMAX IT CAN SPACE OVER 
052544 020201 CMP R2.R1 sWHICH VALUE CAN WE USE 
8GT 46 BR, IF @ WRITTEN > 64K 
88634 052550 0101035 MOV R1,R3 3@ WRITTEN CAN BE USED 
000401 BR 47% ’ 
8636 052534 0102035 46%: MoV R2,R3 sUSE MAX NUMBER 
8837 052556 162703 000001 478: SUB #1,R3 s00N‘'T GO ALL THE WAY YET 
334 052562 010337 055122 MOV RS, T25RB sNUMBER OF RECORDS TO SPACE OVER 


GREHKOHAAAHASHHAMGHRSEHRHEGARRKEHSASCHAHRORMEHASLADASEHRSERADAELERBASHRESEASEA 





fitenossessceeee 


012737 
012704 


013737 
010465 
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140010 
120 


002116 
177772 


010000 
003114 
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055120 


055152 


055122 


055120 


SEQ 0195 
| 
sSPACE FORWARD, ACK,CVC*1 COMMAND 
| 
PPSAAHHASAAHHHSSRHSSESHOHADASSEHEARSSAEAASHERRARHORSASSRAGHSHKHSHASAOSESH 
MOV €140010, T25PKS sSPACE FORWARD, ACK,CVC= 1 con COMMAND 
an MOV @T25PK3.R4 :SET UP R4 WITH PACKET 
$ 
_ sg NUMBER OF RECORDS USED AS DELAY COUNTER 
MOV ha iscbcRso TISSUE C 
67#: JSR ;WAIT FOR SSR TO SET 
MOV TSSR(RS),R1 sGET TSSR CONTENTS 
MOV @SSR,R2 :SET UP EXPECTED 
CMP R1,R2 ARE THEY EQUAL 
BEQ 753 38R, IF OK 
DELAY 250 }DELAY .25 SECONDS 
MOV @250,(PC)+ 
.WORD 0 
Mov LeOLY,CPC)+ 
.WORD 0 
bEC ~6¢PC) 
BNE 
DEC =3a¢PC) 
BNE .-20 
DEC T250LY :BUMP DOWN COUNTER 
BNE 678 :8R, IF NOT AT END OF DELAY 
INC FATFLG BUMP 
ERRHRD ERRNO, T2SWDE,PKTSSR sTSSR INCORRECT AFTER READ DATA 
TRAP  CSERHRD 
: 539 
T25WOE 
"WORD PKTSSR 
75%:  CKLOOP ;LOOP IF SELECTED 
TRAP  CSCLP1 
MOV 04096. .R3 sRECORD SIZE 
HOV FREE, T25R8 sSTARTING READ BUFFER ADDRESS 


s COSOSOSSSSESESEEESSSEESSSSESEESSSEHESESEESSSESSSELESESEEEEEEESESEEE 
4 
sREAD DATA,ACK COMMAND 


F] ° 
ESSSOaRHSASSSASHEASABASSOCHHOCAHKS SE SHOMESHSALKLHSHAASSHSSHAGASHSSALODASSS 


mov #100001, T2SPK3 sREAC DATA, ACK COMMAND 
165¢: MOV T2SPKS, Ra sSET UP R4°UITH PACKET ADDRESS 
MOV T2582 sSET UP RECORD SIZE IN PACKET 
nov R4, TSDBCRS) : 
JSR WAITF sWAIT FOR SSR TO SET 
“oy TSSACRS) AI sGET T 
MOV @SSR,R2 SET UP EXPECTED 
ce fk i Phe 
é 3 
6:7 iT2.R1 sCHECK FOR TAPE STATUS ALERT 
but 4708 IF SET ALL IS WELL 
INC FATFLG BUMP COUNT 
ERRHRD ERRNO, ROERR,PKTSSR : 


TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRO 


| TSV7 - HARDWARE TESTS 1-8 


| TEST S: SPACE RECORDS 
052776 001034 
053000 005204 


3 S 
S 012136 
8890 05 
053004 1044 
8891 017701 


8925 053106 013737 


6933 053114 004737 
8934 053120 103427 
8935 053122 


053122 012727 


130102 
055146 
000001 


002212 


002212 
017272 


016064 


00025C 
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000017 


055146 


055152 


SEQ 0196 
| 
.WORD 540 
-WORD RDERR j 
WORD PKTSSR 
1708: CKLOOP ;LOOP IF SELECTED 
RAP CSCLPi 
MOV @FREE ,R1 3GET FIRST WORD FROM BUFFER 
MOV T25CN2, Re My UP EXPECTED 
SUB #1,R2 sSHOULD BE LAST a. 
CMP R1,R2 ;WAS RECORD NUMBERED R 
BEQ 200% :8R, IF CORRECT RECORD 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T2SWNG,EXPREC } SHOULD HAVE BEEN RECORD NUMBER 1 
TRAP CSERHRD 
-WORD 541 
.- WORD T25SWNG 
-WORD EXPREC 
2008: CKLOOP 
TRAP CSCLP1 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10076: 
: TRAP CsESuB 
CMP FATFLG,@15. :IS ERROR COUNT AT 25 
BLO 999% ;6R, IF LESS THAN 25 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
999%: 
3¢ 
3 
‘weed 5S. SUBTEST 6 
i VERIFIES THAT SPACE RECORDS goo CAN SPACE A 
;MULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 
i MAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE 
;WHICH EVER 15 LESS. 
3 
3 
Hy 
ge 
BGNSUB 3>>>->>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
TS.6: 
TRAP CsB8SUB 
JSR PC, T2SREST sSET COMMAND PACKET 
MOV T2S5CNT, T25CN2 iSET > RECORD COUNTER 
JSR PC, T25RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T25RTS ;SET UP OTHER COMMAND PACKET 
MOV T25CNT , T2SDLY ;SET UP REWIND DELAY COUNTER 


J SSSEHRESSEASSASHESSSSAASESASSASSEASSHSSAASESSESSASESHSSSSESESESHSSSEESESEE 


; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
FSSHAKESSESSESASASESASSHASSSAARSSHSSASASASASSSHSSESSESSESESESESSSSEESE 


10%: JSR PC, SOF INIT :00 INITIALIZE ON CONTROLLER 
Bcs 20% BR IF INIT WAS OK 
DELAY 250 sWAIT ABOUT .25 SECONDS 


MOV #250,(PC)+ 


TSV7 - HARDWARE TESTS 1- 


TEST 5S: SPACE RECORDS 


000000 
053130 013727 
000000 


: 
: 
: 


3650 
053176 012124 
053200 013737 
946 053206 C12704 


005054 
053234 012124 
053236 
053236 104406 


8978 053 

053264 104406 
8979 
8980 


002116 
177772 
177756 
055152 


000002 
002212 


002172 
054770 


010752 
002212 
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055010 


DEC 5 at 

MOV TSSRCRS),R1 

INC FATF 

ERRDF ERRNO,SFIERR,SFIMSG 


208%: MOV UNITN, T2S50SW 
MOV @T2S5PACKET ,R4 


PC, ,WRTCHR 

25% 

FATFLG 

MOV RO,R1 

ERRHRD ERRNO,WRTMSG, SFIMSG 


JSR 
BcS 
INC 


25%: CKLOOP 


sDEC COUNTER 
sBR, IF MORE LOOPS RE 


SEQ 0197 


0 
L#DLY.CPC)» 
-6¢PC) 
-22(PC) 
.-20 


QuI 
eres OF TSSR REGISTER 


3; BUMP 
sFATAL ERROR TSSR WAS NOT OK 
TRAP 


. WORD 

. WORD 

. WORD 
;SET UP UNIT NUMBER 


;SUBROUTINE NEEDS PACKET ADDRESS 
{OOS OROOO6O064500044400466000806006460060600060000060600000000008008 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


i 
FSSSAHASSSSASSSSASSSSESSSASHSSSAAASESESSHSESHSSHSASSSSSSSESESSESESEEEESS 


sISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
;BUMP COUNT 


sSAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC oo 
. WORD 
- WORD 
- WORD 
TRAP 


;LOOP IF SELECTED 


PERERA EHRREKRHE RARER HAHAEKRERAREHRHAAHAKRARAKE HD RERAREHAARREHHRARHHDHAAHEE 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
,PRaRHKHe, BAKBAKRAKHKHALRAELRASREAARAARAAHKHKARARSERARAEAHEASORAKRHAKHAKASRASARHESK 


JSR PC ,REWIND 
BCS 30% 
MOV 


INC FATFLG 
ERRHRD ERRNO, T2SRWN,PKTSSR 


30%: CKLOOP 


;CALL_TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 


sSAVE TSSR 

:BUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 
. WORD 

sLOOP IF SELECTED 
TRAP 


PEERS ARAEROKEHAHARRAHHE SASHA SSAREHERASRHARSASRAAKERKHAHHRARKAHAHSHARAAS 


CSERHRD 
343 
WRTMSG 
SFIMSG 


CSsCLP1 


CSERHRD 


544 
T2SRWN 
PKTSSR 


CsCcLP1 
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| 8961 
6982 
6983 
8964 
6985 
8966 
6987 
6968 


053266 
053272 
0S 


013701 


000401 
010203 
010337 


012737 


055146 
177776 


055122 


140010 
055120 
000000 


055146 
016340 
00000 


2 
000200 


000250 
002116 
177772 
177756 
055152 
002212 
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;READ MESSAGE BUFFER EXTENDED STATUS REG 


° 
f SHAASAAKESSSASKESSKSHSSHSSASEEEEEEEEEEE 


MOV T2S5BFR+6,R1 
MOV R1,R 
BIS #BIT1,R2 
CMP R1,R2 
BEQ 
INC FATFLG 
ERRHRD ERRNO, T25B80T,EXPREC 
408: CKLOOP 
MOV T25CN2,R1 
MOV 965534. ,R2 
CMP R2,R1 
BGT 46$ 
MOV R1,R3 
BR 473 
46$: MOV R2,R3 
47%: 
MOV R3,T25RB 


PRERKAHHAEERAREHARARERAREAEERAARAERE TRAE EERAAHEHMERAHALREHASARAHHEHRESH 


; SPACE FORWARD, ACK,CVC=1 COMMAND 


° 
J SSSAAASSSSSSSSSAASSSSSHASSSSEAAHSSSSSESSESSSSSSHKESSESSSSASSESESESEEEEEES 


055120 MOV #140010, T25PK3 
MOV @T25PK 
MOV R4, 7DaCRS) 
055152 MOV T25CN2, T250LY 
~ 48%: JSR PC, WAITF 
MOV TSSR(RS),RL 
MOV @SSR,R2 
CMP R1,R2 
BEQ 503 
DELAY 250 
DEC T25DLY 
BNE 83 


INC FATFLG 
ERRHRD ERRNO, T25WDE ,EXPREC 


SEQ 0198 
ISTER ZERO (XSTO) 
8268266666066 660664628864646466466 | 
! 
sPICK UP XSTO | 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
;8R, IF EQUAL (OK) 
38 COUNT 
‘TAPE NOT AT BOT AFTER REWIND 
CSERHRD 
THORD 545 
"wORD  T2580T 
.WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
s;NUMBER OF RECORDS ON TAPE 
;MAX IT CAN SPACE OVER 
;WHICH VALUE CAN WE USE 
;8R, IF @ WRITTEN > 64K 
;@ WRITTEN CAN BE USED 
sMOVE ON 
;USE MAX NUMBER 
s;NUMBER OF RECORDS TO SPACE OVER 
;SPACE FORWARD,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
; ISSUE COMMAND 
;SET UP DELAY COUNTER 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
3SET UP EXPECTED 
3; ARE Y EQu 
:BR, IF OK 
;WAIT .25 SECONDS 
MOV #250.(PC)+ 
.WORD 7) 
MOV LSOLY.CPC)> 
.WORD 0 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 


sDEC THE DELAY COUNTER 

:BR, IF COUNTER HASN’'T EXPIRED 
sBUMP COUNT 

sTSSR INCORRECT AFTER nae Gare 
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SEQ 0199 
TEST S: SPACE RECOROS 


| 
053460 001042 .WORD 546 
053462 055235 “WORD T25Wwe | 
053464 015564 “WORD EXPREC 
| 9030 053466 50%:  CKLOOP | 
053466 104406 TRAP — CSCLP1 | 
| 9031 053470 013701 055146 MOV T25CN2,R1 ;NUMBER OF RECORDS ON TAPE 
9032 053474 012702 177776 MOV 065534. ,R2 }MAX IT CAN SPACE OVER | 
9033 053500 020201 CMP R2,R1 ;WHICH VALUE CAN WE USE 
9034 053502 003002 BGT 553 ;OR, IF @ WRITTEN > 64K 
9035 053504 010103 MOV R1,R3 ;@ WRITTEN CAN BE USED 
9036 053506 000401 BR 60$ ;MOVE ON 
9037 053510 010203 55%: MOV R2,.R3 ‘USE MAX NUMBER 
9038 053512 162703 000001 60%: SUB @1.R3 ;00N'T GO ALL THE WAY YET 
9039 053516 010337 055122 MOV R3.T2SRB ;NUMBER OF RECORDS TO SPACE OVER 
bet S SARASASAAASESEAEREAEESASEARESEAEASEEEEEEEEESASESESEEASESEKERESESEESE 
904, a 
9043 ;SPACE REVERSE,ACK,CVC*1 COMMAND 
9044 3 
9045 : GEER RAARAERAEAAAEAEAEAEARRARAAEAARERAMERARAHEAEHEAREHREAHREAAKHEKEHRSEHAH 
9046 
9047 053522 012737 140410 055120 MOV 0140410, T25PK3 ;SPACE REVERSE,ACK,CVC=1 COMMAND 
9048 053530 012704 055120 MOV @T25PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 
9049 053534 010465 000000 MOV R4, TSDBCRS) ;ISSUE COMMAND 
9050 053540 013737 055146 055152 MOV T25CN2, T250LY ;SET UP COUNTER 
9051 053546 004737 016340 70$: JSR PC, WAITF ;WAIT FOR SSR TO SET 
9052 053552 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
9053 053556 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 
9054 053562 020102 CMP R1,R2 ;ARE THEY EQUAL 
9055 053564 001425 BEQ 753 ;BR, IF OK 
56 053566 DELAY 250 ;WAIT ABOUT .25 SECONDS 
053566 012727 000250 MOV @250,(PC)+ 
053572 000000 . WORD 
053574 013727 002116 MOV LSOLY.C(PC)+ 
053600 000000 . WORD 
053602 005367 177772 bEC -6(PC) 
053606 001375 BNE “a 
053610 005367 177756 DEC -22(PC) 
053614 001367 BNE .-20 
9057 053616 005337 055152 DEC T250LY ;BUMP COUNTER DOWN 
9058 053622 001351 BNE 703 ;BR, IF COUNTER HASN‘T EXPIRED 
9059 053624 005237 002212 INC FATFLG ;BUMP COUN 
9063 053630 E®RHRD ERRNO, T2SWDE,EXPREC ;TSSR INCORRECT AFTER READ DATA 
053630 104456 TRAP — CSERHRD 
053632 001043 .WORD 547 
053634 055235 "WORD 125WOE 
053636 015564 "WORD EXPREC 
9064 053640 75%: CKLOOP ;LOOP IF SELECTED 
053640 104406 TRAP —- CSCLP1 
9065 053642 012703 010000 MOV 04096. .R3 ;RECORD SIZE 
2066 053646 013737 003114 055122 MOV FREE, T25RB ;STARTING READ BUFFER ADDRESS 
oeee J SSSASSHHSHSSASSSSSSSESSSASEASSSASSESSSSSSESESSAAESSSSHSSASHKESESESEEEE 
: 
3070 ;READ DATA,ACK COMMAND 
Hy 
9072 PRAKaGR SHARE ERARAERHKAKRHARAMAARARRAHAGHAMARAKHAHERHARKALEHEHERHAHRREAREDS 





! 
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TEST 5: SPACE RECORDS 


9073 

9074 053654 
9075 053662 
9076 OS 
9077 0536 
9078 053676 
9079 053702 


012737 


104402 
004737 
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oe gpd] 055120 


002212 


127136 
000001 


002212 


002212 
017272 


056336 


000017 


165$: 


170$: 


2008: 


999%: 


3¢ 





#100001 , T25PK3 
@T25PK3 ,R4 
4177777 ,RO 


PC,WA 
TSSRCRS),R1 
@SSR ,R2 
170% 
e6IT2,R1 
170% 


FATFLG 
ERRNO, RDERR , EXPREC 


@FREE,R1 
Stone 


FATFLG 
ERRNO, T2SWNH,EXPREC 


FATFLG,@15. 
999% 
PC,CKDROP 


:TEST S. SUBTEST 7 


AT BOT 


RESULTS I 


sREAD DATA,ACK COMMAND 

sSET UP R4 WITH PACKET ADORESS 

sSET ALL ONES INTO CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 

sSET UP RECORD SIZE IN PACKET 


;8R, IF OK 
CHECK FOR TAPE STATUS ALERT 
36R, IF BIT SET 


;BUMP COUNT 
sTSSR INCORRECT AFTER wen tae 


CS#ERHRD 
-WORD 548 
-WORD RDERR 
-WORD EXPREC 


;LOOP IF SELECTED 
CsCLP1 


TRAP 
;GET FIRST WORD FROM BUFFER 
SET UP EXPECTED 
sWAS RECORD NUMBERED RS 
;8R, IF CORRECT RECORD 
;BUMP COUNT 
; SHOULD HAVE BEEN Sa 1 


CSERHRD 
. 549 
-WORD  T2SWNH 
-WORD EXPREC 


TRAP CsCLPi 
3>>>>>>>>2>>>> END SUBTEST >>>>>>>>>>>> 
L10077: 


TRAP CsESUB 
IS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


:VERIFIES THAT SPACE RECORDS REVERSE ISSVED WHILE THE 
TAPE IS N FUNCTION REJECT TERMINATION 


sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 


BGNSUB 


PC, T2SREST 


3>>>>>>>>>>>> ore SUBTEST >>>>>>>>>>>> 
7s 


TRAP CsBSUB 


sSET COMMAND PACKET 


SEQ 0200 





‘ 
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| TEST S: SPACE RECORDS 


9122 054030 004737 
9123 054034 004737 


054060 
054062 012124 
9139 054064 C13737 


9141 054072 012704 


S054 
054120 012124 
: 054122 104406 


0 
9173 erties 


056430 
056472 


016064 
002212 


002172 
054770 


010752 
002212 


011104 


002212 


_————— — ---—— - -- - 
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055010 


JSR PC, T2SRT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T2SRTS sSET UP OTHER COMMAND PACKET 


FPSAAAASSAARASSSSAARSRSEEARESSEAEEHSEEESESESESAESSESEAESSESSEASSSSSEESESESE 


} ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


$ 
{PRAAAARAEAAASSSSESASSSESAEEESEAARESESLASESSEAESHESASESSEEASSSEEEEESEEEE 


JSR PC, SOFINIT 300 INITIALIZE ON CONTROLLER 

BCS 20% 36R IF INIT WAS OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 s;CONTENTS OF TSSR REGISTER 

ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP Cs#ERDF 
«WORD SSO 
-WORD SFIERR 
-WORD  SFIMSG 

20%: MOV UNITN, T250SW ;SET UP UNIT NUMBER 
MOV @T25PACKET ,R4 ; SUBROUTINE NEEDS PACKET ADDRESS 


{ PAAAREEEAAEEEEESEEEEEESEARESERESRESESSEEESSEEESSEEEESEREEESEEEEESEE 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
FSSSAAAASSSAEAEASEEASEAASESESEASAESERESESESAESSSSAESESSSEESESSSSESEESE 


JSR PC,.WRTCHR ISSUE WRITE CHARACTERISTICS 

BCS 25% 6m. IF COMMAND ISSUED OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 551 
-WORD WRTMSG 
-WORD SF 

25%: CKLOOP ;LOOP IF SELECTED 


TRAP CsCLP1 


| RORREEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEO4060000000000080600008 
; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


: 
PAROS ARAARKERARAERERAREEARE AERA RHERARATAAREREARE RARER ERARRRREASERE RSH 


JSR —- PC, REWIND s;CALL_TAPE REWIND COMMAND 
BCS 308 :8R, IF NO PROBLEM 
MOV = RO, R12. ;SAVE TSS 
INC FATFLG ;BUMP_ COUNT 
ERRHRD ERRNO, T2SRWN,PKTSSR ;REWIND NOT ACCEPTED 
TRAP CSERHRD 
.WORD 552 
[WORD = T25RWN 
. WORD PKTSSR 
30%:  CKLOOP ;LOOP IF SELECTED 


TRAP CsCLP1 


SEQ 0201 





EQUAL 
9226 054304 001406 BEQ 170$ 3B8R, IF EQUAL (GOOD) 
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| TEST 5S: SPACE RECORDS 
9174 
ai SPRAAAAAARAAASEAASESESEAASASESEAAEEEESSEEESESESAEAESESEESEESEEEEEEEEEDE 
$ ! 
4 Bd sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) | 
4B | Sbdoeeeseseesecaccccesasecsaseesacnssacesooseseseoonecesossesesees 
91861 054152 013701 055020 MOV T25BFR+6,R1 ene UP xSTO 
9182 054156 010102 MOV R1.R T UP EXPECTED 
9183 054160 052702 000002 BIS @B1T1,R2 iSET BOT BIT IN EXPECTED 
9184 054164 020102 CMP R1,R2 ;D0ES EXP = REC'D 
9185S 054166 001406 BEQ 40$ ;BR, IF EQUAL (OK) 
9186 054170 005237 002212 INC FATFLG ; BUMP COUNT 
9190 054174 ERRHRD ERRNO, T25B0T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
054174 104456 TRAP CSERHRD 
054176 001051 -WORD 553 
055315 -WORD T2580T 
054202 015564 -WORD EXPREC 
9191 054204 40%: CKLOOP sLOOP IF SELECTED 
054204 104406 TRAP CSCLP1 
3138 054206 012737 000001 055122 MOV #1, T25RB sNUMBER OF RECORDS TO SPACE OVER 
3135 J PAREAEEAAESASASEAERESSERASASESEEESESSEEESERESEESASESESSESSEKEEEEEESEEESE 
3338 | SPACE REVERSE ACK COMMAND 
b+ b+ ' edeeenecascccacaccacecsesccsessasaccasecnasessesecseseseeseseosese 
9200 054214 012737 100410 055120 MOV #100410, T25PK3 sSPACE REVERSE,ACK COMMAND 
bs at aaces 012704 055120 ese MOV @T25PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
9203 054226 010465 000000 : . MOV R4, TSDBCRS) sISSUE COMMAND 
9202 054232 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
9205 O56e5s0 016501 000002 MOV TSSR CRS),R1 ;GET TSSR CONTENTS 
9206 054242 012702 100206 MOV @SSR!SC 'BIT1 !BIT2,R2 sSET UP EXPECTED 
9207 054246 020102 CMP R1,R2 sARE THEY EQUAL 
9208 054250 001406 BEQ 754 3;BR, IF OK 
9209 054252 005237 002212 INC ATFLG sBUMP COUNT 
9213 054256 ERRHRD ERRNO. T2SWDE , PKTSSR sTSSR INCORRECT AFTER READ DATA 
054256 104456 TRAP CSERHRD 
054260 001052 -WORD 554 
054262 055235 -WORD T2SWDE 
054264 012136 -WORD PKTSSR 
9214 054266 75$: CKLOOP sLOOP IF SELECTED 
9215 054266 104406 TRAP CSCLP1 
este { PESASAAEEASSASESSESAEESEARAASESERESSEASEEESSEEASEEEEESEEEEEEESEEEEE 
Sats ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
Seee | aeaeenssasnscasessasaccaccssescacasacsacecsesnccesesoeseesesessese 
9222 054270 013701 055020 MOV T25BFR+6,R1 ;GET XSTO STATUS WORD 
9223 054274 010102 MOV R1,R2 3SET UP EXPECTED 
9224 054276 052702 002000 BIS eeirio. Re sSET THE NEF BIT 
9225 054302 020102 CMP R1,R2 sARE THEY 
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| SEQ 0203 
TEST 5S: SPACE RECORDS 
9227 054306 005237 002212 INC FATFLG ;BUMP COUNT j 
9231 054312 ERRHRD ERRNO, T2SNEF ,EXPREC ;NEF SHOULD BE SET | 
054312 104456 TRAP CSERHRD | 
054314 001053 .- WORD 555 
054316 055763 .- WORD T25NEF 
054320 015564 .WORD EXPREC 
9232 054322 1708: CKLOOP 
054322 104406 TRAP CSCLP1 
9233 054324 ENDSUB 
054324 L10100: 
104403 TRAP CsESUB 
9234 054326 023727 002212 000017 CMP FATFLG, #15. :IS ERROR COUNT AT 25 
9235 054334 103402 BLO 999% ORY IF LESS THAN 25 
9236 054336 004737 017272 JSR PC ,CKDROP Y TO DROP THE UNIT 
9237 054342 9998: 
9238 
9239 3° 
9240 3 
sesh — 5S, SUBTEST 8 
9243 :VERIFIES THAT A SPACE RECORDS REVERSE COMMAND THAT 
9244 sCUASES THE TAPE TO RUN ae BOT CWITH THE TAPE NOT 
9245 sINITIALLY AT BOT) CAUSES A TAPE STATUS ALERT 
9246 : TERMINATION AND SETS THE REVERSE INTO BOT CRIB) 
9247 sSTATUS BIT 
9248 3 on 
9249 3 
9250 3 
9251 3- 
9252 054342 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
054342 TS.8: 
054342 104402 TRAP Cs8SuUB 
9253 054344 004737 056336 JSR PC, T2SREST ;SET COMMAND PACKET 
9254 054350 004737 056430 JSR PC, T25RT2 iSET UP OTHER COMMAND PACKET 
be 5 054354 004737 056472 JSR PC, T25RTS ;SET UP OTHER COMMAND PACKET 
ya § PORSEEEEEEEEEEEEEEEESEEEEEEEEEEEEEEEEEEEOSO666608000000000000000886008 
3 
544 ;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
F 
9261 § OOOSS6OO6400666600466064060666664604666600060666000000000000000000008 
9262 
9263 054360 004737 016064 JSR PC,SOFINIT 3:00 INITIALIZE ON CONTROLLER 
9264 054364 103407 bcS 20% ;8R IF INIT WAS OK 
9265 054366 005237 002212 INC FATFLG sBUMP COUNT 
9269 054372 010001 MOV RO,R1 i CONTENTS OF TSSR REGISTER 
9270 054374 ERRDOF ERRNO, SFIERR, SFIMSG FATAL ERROR TSSR WAS NOT OK 
054374 104455 TRAP CSERDF 
054376 001054 .WORD 556 
003650 . WORD SFIERR 
054402 012124 . WORD SFIMSG 
ps 44 | 054404 013737 002172 055010 20%: MOV UNITN, T250SW ;SET UP UNIT NUMBER 
eens 054412 012704 054770 MOV @T2S5PACKET .R4 sSUBROUTINE NEEDS PACKET ADDRESS 
9275 § OROEOEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEDEEEEEESEEEEEEEEESEEDEEEEEESEEE 


9276 H 





| 
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TEST 5S: SPACE RECORDS 
9277 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) | 
«$4 | eeaeceenscnscscnsescesaccssasescesecesccsaseccescecacessccsssecese ' 
9281 054416 004737 010752 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
9282 054422 103407 Bcs 253 BR. IF COMMAND ISSUED OK 
9283 054424 005237 002212 INC FATFLG 
9287 054430 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
9288 054432 ERRHRD ERRNO,WRTMSG, SFIMSG ;sWRITE CHARACTERISTISC FAILED 
054432 104456 TRAP § CSERHRD 
054434 001055 .WORD 557 
054436 005054 ‘wORD WRTMSG 
054440 012124 "WORD SFIMSG 
9289 054442 25%: CKLOOP ;LOOP IF SELECTED 
054442 104406 TRAP C$CLP1 
He 345 FSAKMEARATRABREEAEHEAEAKAEAEEEAREHAEAEEEARAEREAARSKEREAREAREESERAEHRSAS 
9293 I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
9295 | ebeasassascsccccccocccoosassesccsesescesesecsesoososeoseseseosesse 
3597 054444 004737 011104 JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
9298 054450 103407 BCS 30% ;6R, IF NO PROBLEM 
9299 054452 010001 MOV RO,R1 ;SAVE TSSR 
9300 054454 005237 002212 INC FATFLG ;BUMP COUNT 
9304 054460 ERRHRD ERRNO, T2SRWN,PKTSSR ;REWIND NOT ACCEPTED 
104456 TRAP §CSERHRD 
054462 001056 .WORD 558 
056125 "WORD T2SRWN 
054466 012136 "WORD PKTSSR 
9305 054470 30$: CKLOOP ;LOOP IF SELECTED 
we 054470 104406 TRAP CSCLP1 
bey 44 PRaCEKTRHDRESREKHAKERAARHPRALARAHRESSEUERRRORLERKEREERRARKKEAKEARSEASESE 
9308 TREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
gi | Sasdessessessascasoasecssessascassessaseessuscoseoseeseeseeseesess 
9313 054472 013701 055020 MOV T25BFR+6,R1 ;PICK UP XSTO 
9314 054476 010102 MOV SET UP EXPECTED 
9315 054500 052702 000002 BIS @81T1,R2 ;SET BOT BIT IN EXPECTED 
9316 054504 020102 CMP R1,R2 ;D0ES EXP = REC'D 
9317 054506 001406 BEQ 403 iBR, IF EQUAL COK) 
9318 054510 005237 002212 INC FATFLG ;BUMP COUNT 
9322 054514 ERRHRD ERRNO, T2580T,EXPREC TAPE NOT AT BOT AFTER REWIND 
054514 104456 CSERHRD 
054516 001057 "BORO 559 
520 055315 "WwORD T2580T 
054522 015564 "WORD EXPREC 
9323 054524 40%: CKLOOP 
054524 104406 TRAP _—C$CLP1 
9324 054526 012737 000001 055122 MOV 01, T25RB sNUMBER OF RECORDS TO SPACE OVER 
9326 PRONE EKHAMAAEEMERAEERARARHARHRARSEHESAAEMRAKHKERAREEAEERHSRAASHRAARSEKKRALEK 


9327 3 
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TEST S: SPACE RECORDS 


9328 
9329 
9330 
9331 
9332 0545 012737 140210 
93335 054542 012704 055120 
054 010465 000000 
9335 054552 004737 016340 
9336 054556 016501 000002 
9337 054562 012702 000200 
$338 054566 1 
9339 054570 001406 
9340 054572 005237 002212 
9344 054576 
054576 104456 
054600 001060 
054602 055235 
054604 015564 
9345 054606 
054606 104406 
9346 054610 012737 000020 
9347 
9348 
9349 
9350 
9351 
Seog 
935 
9354 054616 012737 100610 
935: 012704 055120 
0546 010465 000000 
9357 054634 004737 016340 
054640 016501 000002 
9359 054644 012702 100204 
9 054650 020102 
9361 054652 001406 
9 054654 005237 002212 
054660 
54660 104456 
054662 001061 
054664 0552355 
054666 015564 
9367 054670 
054670 
9368 054672 013701 055026 
9369 054676 010102 
9370 054700 052702 000001 
9371 054704 020102 
9372 054706 001406 
9373 054710 005237 002212 
9377 054714 
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055120 


055122 


055120 


sSPACE FORWARD, IE,ACK,CVC=1 COMMAND 


b] 
f PRSASASASESSESASESAESESASESSEEESASEESEESSESSSEESESESESESESSESESESE 


MOV #140210, T25PK3 
MOV @T25PK3 ,.R4 

MOV R4, TSDBCRS) 
JSR PC ,WAITF 

MOV TSSRCRS),R1 
MOV @SSR ,R2 

CMP . 

BEQ 


INC FATFLG 
ERRHRD ERRNO, T25WDOE ,EXPREC 


75$: CKLOOP 


MOV #20, T2SRB 


SEQ 0205 


;SPACE FORWARD, IE,ACK,CVC=1 COMMAND 
3SET UP R4 WITH PACKET ADORESS 


31S COMMAND 

sWAIT FOR SSR TO SET 

3GET TSSR CONTENTS 

3SET UP EXPEC 

z T E 

3BR, IF OK 

;BUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORDB 560 
-WORD T2SWOE 
-WORD EXPREC 

;LOOP IF SELECTED 

CSCLP1 


sNUMBER OF RECORDS TO SPACE OVER 


J SSRASASSHASSESSAESESESESAERESEESEASEESSESEHSESEESESESESESEESSSSESEHSESEE 


; SPACE REVERSE ,IE,ACK COMMAND 


4 
PERERERKAERERAAMHERRERHKEKRERSKARKSELAKARERAAEDEHSRARERGEAKAKHEAASABALEH 


#100610, T2SPK3 


MOV @T25PK3,R4 

MOV R4, TsoB¢ RS) 

JSR P 

MOV Tséne R).R 

MOV @SSR!BIT2! Sc, R2 


CMP R1,R2 
175% 


BEQ 

INC FATFLG 

ERRHRD ERRNO, T2SWDE,EXPREC 
175%:  CKLOOP 

MOV T25BFR+14,R1 

MOV R1,R 

BIS @BITO.R2 

CMP 1,R2 

BEQ 

INC FATFLG 

ERRHRD ERRNO, TOSNEF ,EXPREC 





sSPACE REVERSE,.IE,ACK COMMAND 
;SET UP _R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 
sWAIT FOR SSR TO SET 


BUMP COUNT 
sTSSR INCORRECT AFTER we ie 


CSERHRD 
- WORD 1 
-WORD T2SWDE 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLP1 


:GET XST3 STATUS WORD 
3SET UP EXPECTED 

3SET THE RIB BIT 

sARE THEY EQUAL 

3BR, IF EQUAL (GOOD) 
sBUMP COUNT 

;NEF SHOULD BE SET 


CSERHRD 
S62 


9379 054726 


055074 
055100 
9418 055100 


9430 124 
9431 055126 
9432 
9433 
9434 


9435 
9436 055130 
9437 055150 
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010 


002212 000017 
017272 


016546 
047626 
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ENOSUB 


193%: 
EXIT 


FATFLG,@15. 
PC ,CKDROP 


PC, TSTLOOP 
193% 
T25L00P 
TST 


. 
LOCAL STORAGE FOR THIS TEST 


10-<.-TSV2E7> 
100004 
T2SDATA 

0 

8. 


T25BFR 
.¢] 

10. 

0 


te) 
25. 


WRITE SUBSYSTEM MEMORY COMMAND PACKET 


.BLKB 
T2SPACKET: 
. WORD 
. WORD 
. WORD 
. WORD 
T25DATA: 
. WORD 
. WORD 
. WORD 
- WORD 
T250SW: .WORD 
T2SBFR: .BLKW 
3 
.BLKB 
T25PKe: 
. WORD 
. WORD 
. WORD 
. WORD 
. BLKB 
T25PK3: 
. WORD 
T25RB: 
T25WB: .WORD 
. WORD 
T25SZ: .WORD 
-EVEN 
: 
3 
f25eF2: 
T258S0: .BYTE 


10-<.-TSV2E7> 
100006 
T2S8F2 

0 

6. 

10-<, -TSV2E7> 
100005 

FREE 

i) 

0 


10 
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SEQ 0206 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10101: 


TRAP CsESUB 
sIS —, COUNT AT 25 
3BR, IF LESS THAN 25 
:TRY TO DROP THE UNIT 


300 WE NEED TO ITERATE TEST 
sBR, NO LOOP REQUIRED 
;EXECUTE AGAIN 

sALL DONE THIS TEST 


TRAP 
. WORD 


CsExIT 
L10071-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE ZERO 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, 
sADDRESS OF SELECT BLOCK DATA 


sSiZE OF DATA PACKET 


AND ACK 


sREAD COMMAND, AND ACK 
sADORESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sBSELO AREA 
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SEQ 0207 | 
TEST 5S: SPACE RECORDS 
94386 055131 200 T258S1: .8YTE 200 3sBSEL1 AREA | 
9439 055132 000000 T25S2: .WORD O sSEL 2 AREA 
berry 055134 000000 T25S3: .WORD 0 sDATA AREA | 
944 ’ 
9442 ry 
9443 .EVEN 
err} sTAPE MOTION PACKET COMMAND VALUES 
9446 055136 100005 T25RN: .WORD 100005 sREAD DATA yh 
9447 055140 100405 T25SWOR: .WORD 100405 sREAD DATA 
0551 102005 T2S5SCON: .WORD 102005 sWRITE CONTINOUS 
9449 055144 177777 -WORD 177777 sEND OF DATA 
9451 055146 000000 T2SCN2: .WORD 0 sCOUNTER FOR RECORDS 
9452 055150 000000 T2SCNT: .WORD 0 sCOUNTER FOR RECORDS 
oeae 055152 000000 T250LY: .WORD 0 ;COUNTER FOR RECORDS 
9455 
9456 sLOCAL TEXT MESSAGES FOR TEST 
3056 “ 
9459 055154 127 122 111 T2SSSR: .ASCIZ werre SUBSYSTEM Miscelleneous Read Status Failed’ 
05523. 124 123 123 T2S5WOE: .ASCIZ SR Not Correct After POSTTION® eSpace) Commend’ 
9461 055315 124 141 160 T2S80T: .ASCIZ Not At BOT After REWIND Commend’ 
055362 Led 123 123 T2STM: .ASCIZ ts Not Correct After Sq By ¢ @ Commend) Reject’ 
9463 055451 127° 162 151 T2SNET: .ASCIZ ‘Write pape. Status Alert No E 
055525 123 160 141 T25WNG: .ASCIZ ‘Space Forward Failed To besition On Correct Record’ 
9465 055610 123 160 141 T2SBNC: .ASCIZ ‘Spece Forwerd, From BOT, Failed To Clear BOT Indication’ 
700 123 160 141 T2SWNH: .ASCIZ ‘Spece Reverse Failed To Position On Correct Record’ 
9467 055763 123 160 141 T2SNEF: .ASCIZ ‘Spece Reverse, At BOT. Failed To Set NEF (XSTO)' 
3 123 160 141 T2SRIB: .ASCIZ ‘Space Reverse, Into BOT, Failed To Set RIB (XST3)’ 
125 122 145 167 T25RWN: .ASCIZ ‘Rewind (POSITION) Command Not Acc cepted’ 
9470 056174 04 162 151 T2SOFL: .ASCIZ ‘Drive 7 Select Failed To Set “OFL” In TSSR’ 
9471 7 124 123 123 T2eSWOC: .ASCIZ ‘TSSR Not Correct After READ DATA Command’ 
9472 056320 123 160 141 TST2SI0: -ASCIZ ‘Space Records’ 
ga? .EVEN 
7 ° 
9476 }ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
9477 iWRITE SUBSYSTEM MEMORY COMMAND 
G78 3 
9479 s- 
9481 056336 T2SREST: 
056336 SAVREG sSAVE THE REGISTERS 
056342 012701 054770 MOV @T25PACKET.R1 sSTART OF THE PACKET 
056346 012721 100004 MOV #100004, (R1)+ sWRITE SUBSYSTEM MEM. WITH ACK 
9485 056352 012721 055000 MOV @T2SDATA, (R1)+ sADORESS OF CHARAISTICS DATA BLOCK 
0563 005021 CLR CR1)« iEX TENDED ADORESS 
9487 056360 0127. 12 MOV #10. ,CR1)+ 3SIZE OF DATA BLOCK IN BYTES 
4 a8 012721 055012 MOV PIF ErA. CRE De sADDRESS OF MESSAGE BUFFER 
S44 056. 
9490 056372 012721 000024 MOV #20. ,CR1)+ sLENGTH OF MESSAGE BUFFER 
9491 056376 CLR CR1)- 
012711 000000 MOV #0,(R1) sSELECT ORIVE ZERO 
012702 000030 MOV 024. .R2 sNUMBER OF LOCATIONS TO BE CLEARED 
9494 056410 012762 177777 055012 64%: MOV #177777, T25BFRC(R2) TALL ONES TO MESSAGE BUFFER 
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| 
9495 056416 005742 
9496 056420 022702 
9497 056424 001571 
9498 056426 000207 
9499 
9500 056430 

{ 


9514 056476 012701 
9515 S02 012721 
9516 056506 012721 

12 005021 


9541 056524 012737 
9542 056 004737 
9547 056536 012700 
9548 056 737 


MACRO YOS.02 


002170 


002206 


TST -(R2) 
CMP #0 ,R2 
BNE 64$ 
RTS PC 

T2SRTe2: 
SAVREG 
MOV @T25PK2,R1 
MOV #100006, (R1)-+ 
MOV @T25BF2,CR1)+ 
CLR 1)+ 
MOV @6.,CR1)+ 
CLR CR1iD- 
MOV @T2es56F2,R1 
CLR CR1)+ 
CLR CR1) 
RTS PC 

T2SRT3: 
SAVREG 
MOV @T25PK3,R1 
MOV @0,(R1)+ 
MOV eCR1)+ 
CLR CR1)+ 
MOV #0,CR1)+ 
RTS PC 
ENOTST 


-SBTTL TEST 6: REREADS 


ty 


i THIS TEST VERIFIES THAT THE REREAD pdb as AND REREAD NEXT 
OMMANDS pin pons PROPERLY. VARI COMBINATIONS OF ODD AND 


sC 

;OATA BUFFER BOUNORIES, 

ye Is a ye FP 
ARE USED 
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+g! LOCATION 

sIS R2 AT ZERO YET 

sKEEP GOING UNTIL DONE 

sRETURN 

sSAVE_THE REGISTERS 
ART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
DOR DATA BLOCK 

sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE_ THE REGISTERS 
sSTART OF THE PACKET 
sWRITE SUBSYSTEM eK WITH ACK, 


L10071: 
TRAP 


. ALSO TESTED ARE PROPER pat tga 
iEXCEP TIONAL OR ERROR CONDITIONS: RECOR 


DO LENGTH LONG, RECORD 
HORT, READ REVERSE AT BOT, ye eee DATA BUFFER ADDRESSES, 


SAND DATA BUFFERS IN NONEXISTENT 


; THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS 


MOV po geil F pares 


MOV eTstzerD. RO 
JSR PC, TSTSeTuUP 
MOV @5,.LOOPCNT 
JSR PC ,MEMCK 
CLR NXMFLG 

CLR T26CNT 


T6:: 
sSECONDARY ERROR MESSAGE 
300N'T NEED KT1i1 
ASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL vest SETUP 
sPERFORM S ITERATI 
;CHECK FOR ME 
3SET FLAG 
sCLEAR TAPE RECORD COUNTER 


SEQ 0208 


CsETST 
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SEQ 0209 
TEST 6: REREADS 
i 
9553 +e ! 
9554 ; | 
9555 — 6, SUBTEST 1 
3589 
9558 i VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0 
9559 sAND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST 
9560 sREWOUND AND THEN WRITTEN WITH A SERIES TEST 
9561 i RECORDS VARYING e LENGTH AND DATA CONTENT. THE TAPE 
9562 :IS THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE 
9563 sTAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
9564 sPREV NO DO. RESULTS (STATUS, DATA 
9565 1ETC.) ARE VERIFIED. THE BYTE COUN EACH REREAD 
9566 i PREVIOUS COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
9567 sRECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 
9568 : 
9569 : 
9570 a 
9571 
ped | 056570 T26LO0P: 
9574 056570 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
056570 T6.1: 
056570 104402 TRAP C$6SUB 
9575 056572 004737 075720 JSR PC, T26REST :SET COMMAND PACKET 
9576 056576 004737 076012 JSR PC, T26RT2]) 3SET UP OTHER COMMAND PACKET 
9577 056602 004737 076054 JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 
care 056606 012737 176750 073164 MOV #65000. , T26DLY ;SET UP DELAY COUNTER 
9580 fPROSROAAEREREEREEEEEEEEEEEDEEEEDE$O9604000000000400000000000000088 
9581 3 
caee sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
958 ; 
9384 Wriviiiitiiiitiiii tii titi itt titi ttt iittitiit ttt itt tit tt tit ttt 
958 
9586 056614 004737 016064 108: JSR PC,SOFINIT :00 INITIALIZE ON CONTROLLER 
9587 056620 103426 bcs 20$ ;8R IF INIT WAS OK 
9588 056622 DELAY 250 ;DELAY FOR A REWIND TO FINISH 
056622 012727 000250 MOV #€250,(CPC)+ 
056626 000000 . WORD 
056630 013727 002116 MOV LSDLY,CPC)+ 
056634 000000 .WORD 
056636 005367 177772 DEC -6(PC) 
056642 001375 BNE 
056644 005367 177756 DEC -22(PC) 
056650 001367 BNE .-20 
9589 056652 005337 073164 DEC T26DLY ;DEC COUNTER 
9590 056656 001356 BNE 10% 3;8R, IF DELAY NOT READY 
9591 056660 005237 002212 INC FATFLG ;BUMP COUNT 
9595 056664 010001 Vv RO,.R1 sCONTENTS OF TSSR REGISTER 
9596 056666 ERRDF ERRNO, SFIERR, SFIMSG 3sFATAL ERROR TSSR WAS NOT OK 
0S566E6 104455 TRAP CSERDF 
056670 001131 : .-WORD 601 
056672 003650 .WORD SFIERR 
056674 012124 - WORD SF IMSG 
9597 056676 
9598 056676 013737 002172 073020 MOV UNITN, T260SW :SET UP UNIT NUMBER 


n/n 


| 
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SEQ@ 0210 


! 
<9 056704 012704 073000 MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS | 
post sERRASRASEAEEEESERESERESERESEESEEESEEESESEEEESEEEEEDEEESEEEEEEDEEEE | 
960 : 
eos sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) | 
sees MITTS TTT TTT TTT TTT TT TTT TTT TTT TTTTTTTT TTT TT TTT T TTT TTT TTT TTT TTT TT TTT 
9607 056710 004737 010752 JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 
9608 056714 103407 BCcS 26% s8R, IF COMMAND ISSUED OK 
9609 056716 005237 002212 INC FATFLG sBUMP COUNT 
9613 056722 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
9614 056724 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
056724 1 TRAP CSERHRD 
056726 001132 -WORD 602 
056730 005054 -WORD WRTMSG 
056732 012124 -WORD SFIMSG 

9615 056734 26%: CKLOOP sLOOP IF SELECTED 

9616 056734 104406 TRAP CsCLP1i 

sete sPRROSRAREASEEESEEEEEEEEESEREDEESEEEEEESEEEEEEEEEEEEEEEEEEEEDEEEEEE 

i 

ath sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

seek POTTS TTT TTT TTT TTT TT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT eT 

9623 056736 004737 011104 JSR PC ,REWIND sCALL_TAPE REWIND COMMAND 

9624 056742 103415 6CcS 30$ sB8R, IF NO PROBLEM 

9625 056744 016501 000002 MOV TSSRCRS).R1 :GET TSSR 

9626 956750 012702 000200 MOV @SSR,R2 s;SET UP EXPECTED TSSR 

9627 056754 010004 MOV RO, Ra sPACKET ADDRESS SET UP 

9628 056756 005237 002212 INC Ad sBUMP COUNT 

9632 056762 ERRHRD €E RNO” T26RWN,PKTSSR sREWIND NOT ACCEPTED 
056762 1 RAP CSERHRD 
056764 001133 WORD 
056766 074464 WORD T 
056770 012136 -WORD PKTSSR 

9633 056772 308: CKLOOP sLOOP IF SELECTED 
056772 104406 TRAP CsCLP1 

sess { PORSAAAEEREESERESESEEEEEEEEDEEEEEEE4OE684006064600006000060000000088 

aed ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

9639 | PASRoRoaReseeananesssenanasessneenaseenseeeccassesesacesssssccczes 

9641 056774 013701 073030 MOV T26BFR+6,R1 sPICK UP _XSTO 

9642 057000 010102 MOV R1,R2 sSET UP _ EXPECTED 

9643 057002 052702 000002 BIS eeiti, R2 sSET BOT BIT IN EXPECTED 

9644 057006 020102 CMP 1,R2 sD0ES EXP = REC‘D 

9645 057010 001406 BEQ 405 sBR, IF EQUAL (OK) 

9646 057012 005237 002212 INC FLG sBUMP COUNT 

9650 057016 ERRHRD ERRNO T26B0T  EXPREC sTAPE NOT AT BOT AFTER REWIND 
057016 104456 TRAP CSERHRO 
057020 001134 -WORD 604 
057022 074175 -WORD T2680T 


057024 015564 -WORD  EXPREC 





| 
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SEQ 0211 


9651 057026 408: CKLOOP ;LOOP IF SELECTED 
057026 104406 TRAP CSCLP1 
9652 057030 012703 000400 MOV 256. .R3 sRECORD SIZE 
bart 057034 013737 003114 073132 MOV FREE, T26RB sSTARTING WRITE BUFFER ADDRESS 
esas 3 RESRAREAESEAESEASAEESAESEAESERESAAEEAESSEAERERESESEEEEEEEEEEEEEESEE 
96 Hy 
bog U4 sWRITE DATA,ACK,CVC=1 COMMAND 
3 
ary 3 SPEASHHASAASSHAAASHSESSASSESEAASEESSESAEESESASARESESESEASESSASEAEKESEEEESE 
9661 057042 012737 140005 073130 MOV #140005 , T26PK3 sWRITE DATA,ACK,CVC=1 COMMAND 
sr | pT 54 012704 073130 650 MOV @T26PK3 ,R4 ;SET UP R4 WITH PACKET ADDRESS 
9664 057 010300 MOV R3,RO sSET PATTERN IN CORRECT REGISTER 
9665 057056 004737 017512 JSR PC, ,FILLMEM sFILL MEMORY WITH RECORD SIZE 
9666 057 010337 073136 MOV R3,T26SZ 3SET UP RECORD SIZE IN PACKET 
9667 057 010465 000000 MOV R4, ieee sISSUE COMMAND 
9668 057072 C04737 016340 JSR P sWAIT FOR SSR TO SET 
9669 057076 016501 000002 MOV TSSRCRS), R1 sGET TSSR CONTENTS 
9670 057102 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
9671 0571 102 CMP ° sARE THEY 
9672 057110 001406 BEQ 75$ 38R, IF OK 
9673 0571 37 002212 INC FATFLG sBUMP COUNT 
9677 057116 ERRHRD ERRNO, WRTERR,EXPREC sTSSR INCORRECT AFTER WRITE DATA 
057116 104456 TRAP CSE 
057120 001135 -WORD 605 
0S7122 005111 -WORD WRTERR 
057124 15 -WORD EXPREC 
9678 057126 75%: CKLOOP ;LOOP IF SELECTED 
057126 TRAP CSCLP1 
9679 057130 005723 TST CR3)+ sBUMP RECORD SIZE 
9680 057132 022703 000414 CMP #268. ,R3 sEND OF RECORD YET 
9681 057136 001346 BNE 65$ ;6R, IF MORE RECORDS TO WRITE 
057140 80%: CKLOOP ;LOOP IF SELECTED 
05714G 104406 TRAP CSCLP1 
9683 057142 120%: 
Sees 2 SAAAREAREAAREELS LARKAAAAARARHESRSAAKSEHEAEEASASASSEASSHEKSHEAESESALESE 
3 
eee sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
3 
a2 +4 SRRREREAREAEEHAKSEKL SS! HHKHKAAAKKEKAAAEHAAKHHEEREREARELAEAAAAEHRSEKKARAEDE 
9691 057142 004737 011104 JSR PC ,REWIND 3;CALL Migs REWIND COMMAND 
9692 057146 1034135 BCS ts F NO PROBLEM 
9693 057150 016501 000002 MOV TSSRCRS),R1 TS 
057154 012702 0v0200 MOV @SSR ,R2 iSET UP EXPECTED TSSR 
9695 057160 010004 MOV RO,R4 sPACKET ADDRESS SET UP 
0571 005237 002212 INC FATFLG sBUMP COUNT 
9700 057166 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
0571 104456 TRAP CSERHRD 
057170 001136 -WORD 606 
057172 07 -WORD T26RWN 
057174 012136 -WORD PKTSSR 
9701 057176 130$: CKLOOP ;LOOP IF SELECTED 
057176 RAP 
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013701 
010102 
02 


9718 057222 
222 


224 

057226 

230 

9719 057232 
7232 


104406 
012737 000400 


012703 
004737 
103412 
016501 
012702 
005237 


000001 
010556 
000002 
000200 
002212 
104456 
001140 
073577 
015564 


104406 
013703 
013737 


073162 
003114 


141001 
0 


97 36 
9754 057342 
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073162 


073132 


073130 


sERASSAAAESRERESEERERERESEEESESEEESESEERESEEESSSESEEESSEEEEEEREDESE 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
J ARSAAASSRSAAAASSAASSSESESEAASESEEEEEEASESEAESEESSEESESEASSEEESESESESES 


MOV T26BFR+6,R1 sPICK UP XSTO 

MOV 1,R2 sSET UP _ EXPECTED 

BIS @81T1,R2 eee BOT BIT IN EXPECTED 
CMP 1, ve OES EXP = REC'D 

BEQ iB. IF — (OK) 


INC FATFLG 
ERRHRD ERRNO, T26B0T ,PKTSSR i TAPE NOT AT BOT AFTER —- 


140%: CKLOOP 
MOV #256. , T26RSZ 
§ PCAREAEAESEEEESEEEESEEEEDEEEEEEEEEEEEEEEEDESEEEDEOEEEEEOEO098000088 


S ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 


sLOOP IF SELECTED 
sSET RECORD SIZE 


ee - oe — 


SEQ 0212 


CsCLP1 


sBIT 15 SETS DIRECTION - O=FORWARD 1*REVERSE 
; 
{ PRRESREREEESEAESEESEESEEESEASEEEDAESERESEEESSEESEESEEEEDAREDEEEDEEES 
145%: MOV #1,R3 3 SPACE RECORD PARAMETER 
JSR PC, SPACE sCALL_SPACE ROU 
BCS 150% s6R, IF NO 
MOV TSSRCRS),RL sGET 
MOV @SSR ,R2 sSET UP EXPECTED TSSR 
INC FATFLG sBUMP 
ERRHRD ERRNO, T26SC,EXPREC sPOSITION (SPACE RECORDS) FAILED 
- WORD 
- WORD 
- WORD 
150%: CKLOOP 
TRAP 
MOV T26RSZ,R3 sRECORD SIZE 
MOV FREE, T26R8 sSTARTING READ BUFFER ADDRESS 


{ SERORESESEEESEEEREREEEEEEREDREDEDEOED6000000000000000006000000000008 
: 
sREREREAD DATA,CVC=1,ACK COMMAND 


a 
PRPMEKAKHHREEREKRAAHHRAKHARERAKREKRAAKHAHSLAARRRALAAAEHKSEHHKARAAKHKAKRS HAH 


MOV @141001, T26PK3 ;REREREAD DATA.CVCet ACK COMMAND 
165%: MOV @T26PK3,R4 3SET UP R4& WITH PACKET ADDRESS 
MOV R3, 12682 SET UP RECORD” SIZE IN PACKET 
MOV R4, TSDBCRS) ;ISSUE COMMAND 
JSR PC; WAITF ;WAIT FOR SSR TO SET 
MOV TSSR(RS),R1 ;GET TSSR CONTENTS 


| 
CSERHRD 
T26B80T 
- WOR PKTSSR 
CsCLP1 
ONE 
TINE 
PROBLEM WITH SPACE COMMAND 
TSSR 
OUNT 
TRAP CSERHRD 
T26SC 
EXPREC 





9755 057346 


057432 
9777 057434 
434 

9778 057436 


012702 
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000200 


002212 


003114 


002212 


073162 


000412 


002212 
017272 
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000017 


1708; 


173%: 


180%: 


1908: 


999%: 


3¢ 


LG 
ERRNO, T26WOC ,PKTSSR 


RS Ra 
0256. .R4 
R2,R4 
(R4),R3 
808 
(R4),R2 
R3,R2 


FATFLG 
ERRNO, T26DTA, EXPREC 


FATFLG,@15. 
999% 
PC ,CKDROP 


iTEST 6, SUBTEST 2 


VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0 
WB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS 


THE SAME AS THA 


sSET UP EXPECTED 
THEY EQUAL 


3s ARE 

36R, IF 

;BUMP COUNT 

iTSSR INCORRECT AFTER —_—-S DATA 
- WORD 
[WORD 
- WORD 


sLOOP IF SELECTED 


RAP 
sCURRENT BUFFER ADDRESS TO R2 
sCURRENT RECORD S 
ye oa LOCATION IN BUFFER 
6 


368R, IF ALL 
sRECD DATA 
sEXPECTED DATA 


;DATA READ NOT = WRITTEN 


sLOOP IF SELECTED 


sBUMP TO NEXT LOCATION 
sCORRECT RECORDS SIZE VALUE 
sEND OF RECORD YET 

38R, IF NOT AT END OF RECORD 
sBUMP RECORD SIZE 

sRESET RECORD SIZE 

sEND OF RECORD YET 

3BR, IF MORE RECORDS TO READ 
;LOOP IF SELECTED 


UP POINTER 
sCHECK DATA READ C(R3=DATA ALSO) 
IS WELL 


SEQ 0213 


CsCLP1 


TRAP 
3>>>>>>>>>>>> END yd ped >>>>>>>>>>>> 
Li 


sIS ERROR COUNT AT 25 
BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


T_ USED IN SUBTEST 1, BUT IT IS 
sVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
sSWAPPED BYTES. 


CsESUB 


| 
' 
CSERHRD | 
609 
T26WOC 
PKTSSR 
CsCLP1 
CSERHRD 
610 
T260TA 
EXPREC 
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seq 0214 
TEST 6: REREADS 
| 
9805 s- 
9806 057502 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> | 
057502 T6.2: } 
057502 104402 TRAP Cs6SUB | 
9807 057504 004737 075720 JSR PC. T26REST sSET COMMAND PACKET 
9808 057510 004737 076012 JSR PC, T26RT2 iSET UP OTHER COMMAND PACKET 
ooo8 057514 004737 076054 JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
+ { PERORSAAEREREREEREREREEEEREEEEREREDEEEERESEEEEREEEEEESEESEEEEEEEEE 
st ; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3ei3 WOTET TUTTI TITTTT TTT TTT TTTTTTTTTTTTTTTTTTTTTTTTTTT TTT TTT TTT TT TTT ee 
9817 OS7520 004737 016064 JSR PC, SOF INIT 300 PIA Te ON CONTROLLER 
9818 057524 103407 BCS 208 38R IF INIT WAS OK 
9819 057526 005237 002212 INC FATFLG 18 OUNT 
9823 057532 010001 MOV RO,R1 :CONTENTS OF TSSR REGISTER 
9824 057534 ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
057534 104455 TRAP CSEROF 
057536 0011435 -WORD 611 
057540 003650 -WORD SFIERR 
057542 012124 -WORD SFIMSG 
9825 057544 013737 002172 073020 20%: MOV UNITN, T26DSW sSET UP UNIT NUMBER 
po 44 057552 012704 073000 MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
3628 j POASREOAEEEEEEREESEREEEEREREEEEDESEEREEESEEREEEEREEEEREREREDREDEES 
aes ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3633 OTTO TTT TTT TTT TTTTTT TTT TTT TTT TTTTTTTTTTTT TTT TTT TTT TTT Ter Ter TTT Tes 
9835 057556 004737 010752 JSR PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
9836 057562 103407 BCS 26% :8R, IF COMMAND ISSUED OK 
9837 057564 005237 002212 INC FATFLG sBUMP COUNT 
9841 057570 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
9842 057572 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
OS7572 104456 TRAP CSERHRO 
057574 001144 -WORD 612 
. 057576 005054 -WORD WRTMSG 
057600 012124 -WORD SFIMSG 
9843 057602 26%: CKLOOP ;sLOOP IF SELECTED 
057602 104406 TRAP CscLP1 
9845 { PROREEEREEEEEEEEEEEEEEEDEEO460600000060060000000000000000008000008 
p+ 3 ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
gee? ; RAORERERDEREOEEEEEEOEEEEEEE464660606660000000006000000000008000008 
98651 057604 004737 011104 JSR PC .,.REWIND sCALL rare REWIND COMMAND 
9652 057610 103413 BCS 30% sBR, IF NO PROBLEM 
9853 057612 016501 000002 MOV TSSRCRS),R1 sGET TSSR 
9854 057616 012702 000200 MOV @SSR,R2 iSET UP EXPECTED TSSR 
9855 057622 010004 MOV sPACKET ADDRESS SET UP 


RO,R4 
9656 057624 005237 002212 INC FATFLG sBUMP C 





9860 057630 


774 
9907 057776 


104456 
001145 
074464 
012136 


104406 


013701 


104406 
012703 
013737 
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000400 
003114 


110005 
073130 


017512 
073136 
000000 
016340 
000002 
000200 


002212 
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073132 


073130 


SE@ 0215 
ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
RAP C#ERHROD 
-WORD 613 
ee 
WORD PKTSSR 
308: CKLOOP sLOOP IF SELECTED 


TRAP = CSCLP1 
RRA EREEEEEAHARAREERERARAESREHAERHRAAHSE HA EEEAAAHHARERAEAEAAKAERLAERERS 
é 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


7 
PRAGA AAEAAKECAAEERA ERMA REAEAAAAAKARMHRACARAARRAAHEASERHAEKHEAREAHE 


MOV T26BFR+6,R1 ;PICK uP x 

MOV R1,R ;SET UP E XPECT ED 

BIS @681T1,R2 iSET BOT BIT IN EXPECTED 

CMP R1,R2 ;D0ES EXP = REC'D 

BEQ 403 ‘BR, IF EQUAL COK) 

INC FATFLG BUMP COUNT 

ERRHRD ERRNO, T2680T, EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP  CSERHRD 
7 614 
"WORD T2680T 
[WORD EXPREC 

403: CKLOOP ;LOOP IF SELECTED 

TRAP CSCLP1 

MOV 0256. .R3 ;RECORD SIZE 

MOV FREE, T26RB ;STARTING WRITE BUFFER ADDRESS 


§ PORSEEEEEEEEEEEEEEEEEEEEEEEEDSEEEEE464600000000006000000000000000008 
; 
sWRITE DATA,ACK,SWB COMMAND 


3 
LRRAKAKAEAEAAKEREEEARARAAREP ALARA AEAKESAACARARAKAARGRARHKEEESHKARAR 


MOV #110005 , T26PK3 sWRITE DATA,ACK,SWB COMMAND 
68 MOV @T26PK3 ,R4 3SET UP R4 WITH PACKET ADDRESS 
3 
MOV R3,RO _* PATTERN IN CORRECT REGISTER 
JSR PC .FILLMEM sFILL MEMORY WITH RECORD SIZE 
MOV R3,T26SZ 3SET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),.R1 3GET TSSR CONTENTS 
MOV @SSR,R2 ;SET UP EXPECTED 
CMP R1,R2 One wey EQUAL 
BEQ 75% COT 
ERRHRD ERRNO WRTERR PKTS SSR ERCORR WRITE DATA 
e ° 8 
f Teele "TRAP CERHRO 
- a 
5 TERR: 
‘ TSSR 
75$: CKLOOP ;LOOP IF SELECTED 


TST CR3)+ sBUMP RECORD SIZE 
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SEQ 0216 
| TEST 6: REREADS 


9908 060000 022703 000414 CMP 0268. .R3 sEND OF RECORD YET 

9909 060004 001346 BNE 65% :6R, IF MORE RECORDS TO WRITE 

9910 060006 80%: CKLOOP ;LOOP IF SELECTED 
060006 104406 TRAP C$CLP1L 

9311 060010 120%: 

445 3 SHAAAARAKREAAASSASEASAASESAERARSEEASESSESEESESSESHESEEEESEEEEEEASEEEEEEE 

3915 }ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

pat hf : SESSSSSAAASSSAASSSHKSSAASSSESASASSSESEASSASESSEASESASSESEASSESSASASEEEEEE 

9919 060010 004737 011104 JSR PC REWIND ;CALL TAPE REWIND COMMAND 

9920 060014 103413 BCS 130% 36R, IF NO PROBLEM 

9921 060016 016501 000002 MOV TSSRCRS),R1 ;GET TSSR 

9922 060022 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED TSSR 

9923 060026 010004 MOV RO,R4 sPACKET ADDRESS SET UP 

9924 060030 005237 002212 INC FATFLG ;BUMP COUNT 

9928 060034 ERRHRD ERRNO, T26RWN,PKTSSR REWIND NOT ACCEPTED 
060034 104456 TRAP § CSERHRO 
060036 001150 .WORD 616 

074464 “WORD T26RWN 

060042 012136 [WORD PKTSSR 

9929 060044 130%: | CKLOOP ;LOOP IF SELECTED 

ne 060044 104406 ' TRAP = C$CLP1 

batt LeARARKARHAEERAEEAARHKSERAAAKARESSHRAKAKESHRAREAKHREKSRABEAKESHSHHKARASCH ES 

3933 TREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

a + : SSSESHSSSASESSHSSSSSSSASASESAAASAAAASASESSSASSASASSSSKSESEKAEEEEAAEEEE 

9937 060046 013701 073030 MOV T26BFR+6,RL sPICK UP XSTO 

9938 060052 010102 MOV R1,R2 3SET UP EXPECTED 

9939 060054 052702 000002 BIS @81T1,R2 3SET BOT “Ort IN EXPECTED 

9940 060060 020102 CMP R1,R2 ;DO0ES EXP = REC'D 

9941 060062 001406 BEQ 140% ‘BR, IF EQUAL COK) 

9942 060064 005237 002212 INC FATFLG ;BUMP C 

9946 060070 ERRHRD ERRNO, T26B80T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
060070 104456 TRAP § CSERHRD 
060072 001151 .WORD 617 
060074 074175 “WORD T2680T 
060076 015564 ‘WORD €XPREC 

9947 060100 140%: CKLOOP ;LOOP IF SELECTED 
060100 104406 TRAP CS$CLP1 

9948 060102 012737 000400 073162 MOV #256. , T26RSZ 3SET UP RECORD SIZE 

ooze PRSHREREEHEHAKREEHEAESE SHARES HAEKRAKAEHEEARSERKRERBRAASKEREAKEEEEESHEKREED 

9952 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 

9953 ;B8I1T 15 SETS DIRECTION - O=FORWARD  1*REVERSE 

pas - KRELGKKRAKALAKHESEKRERABEAARHAAKRSERARREARGARAHEACAARKARAESARAEARESAHKRAKAABRAD 

9957 060110 012703 000001 145%: MOV #1,R3 sSPACE ONE RECORD PARAMETER 

9958 060114 004737 010556 JSR PC, SPACE CALL SPACE ROUTINE 


9959 060120 103412 6csS 150% 38R, IF NO PROBLEM WITH SPACE COMMAND 





10010 060314 


016501 
012702 
005237 


001152 
073577 
015564 


10446 
0137035 
013737 


012737 
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200 
002212 


073162 
003114 


151001 
30 


003114 
000400 


002212 
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073132 


073130 


MOV TSSRCRS),R1 
MOV @SSR ,R2 


INC FATFLG 
ERRHRD ERRNO, T26SC,,EXPREC 


150%: CKLOOP 
MOV T26RSZ RS 
MOV FREE, T26R8 


sGET TSSR 
+ ~p UP EXPECTED TSSR 


Cc 
: POSITION (SPACE RECORDS) FAILED 
be _— 


- WOR’ 61 
WORD T26SC 
EXPREC 
TRAP CsCLP1 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


PERERA RAEREAHABAEKEAAAHARARKERERHAESHARHEAEHSHABARGRSESERERHOEKEHS 


;REREAD DATA,CVC#1,ACK,SWB COMMAND 


3 
,PRAeAERASEKEEREKAAKEARASHEEEAKACAAERERSAEEKAALASHESSRSKAREEAROHSSERRA 


MOV #151001, T26PK3 
165%: MOV @T26PK3.R4 

MOV R3, 12652 

MOV R4.TSDBCRS) 

JSR PC. WAITF 

MOV TSSR(RS),R1 

MOV @SSR.R2 

CMP R1,R2 

BEQ 708 

INC FATFLG 

ERRHRD ERRNO, T26WDC,.PKTSSR 
170%:  CKLOOP 

MOV FREE .R2 

MOV R3,R4 

SUB 0256. .R4 
173%: ADO R2.R4 

CMP (R4),R3 

BEQ 180% 

MOV Cra), R1 

MOV R3,R 

INC FATFLG 

ERRHRD ERRNO, T26DTA, EXPREC 
180%:  CKLOOP 

TST (R4)6 

SUB 2,.R4 

CMP R4.R3 

BNE 73% 

TST (R36 


;REREAD DATA.CVC=1 ACK,SWB COMMAND 
:SET UP R PACKET ADORESS 


4 WITH 
1SET Nf SIZE IN PACKET 
3 
sWAIT FOR SSR TO SET 
3GET TSSR CONTENTS 
sSET UP EXPEC 
sARE THEY E 
3BR, IF 
BUMP 
sTSSR INCORRECT AFTER REREAD DATA 
CSERHRD 
. WORD 19 
-WORD T26WDC 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPi 
sCURRENT BUFFER ADDRESS TO R2 
sCURRENT RECORD SI 
sFIRST LOCATION IN BUFFER 
3SET UP POINTER , 
sCHECK DATA READ CR3=DATA ALSO) 
3sB8R, IF ALL IS WELL 
sRE ATA 
sEXPECTED DATA 
sBUMP COUNT 
sDATA READ NOT = WRITTEN 
TRAP CSERHRD 
a 620 
T260TA 
EXPREC 


sLOOP IF SELECTED 
sBUMP TO NEXT LOCATION 


TRAP CsCLPi 


sCORRECT RECORDS SIZE VALUE 
sEND OF REC 

3BR, IF NOT AT END OF RECORD 
sBUMP RECORD SIZE 


! 
SEQ 0217 
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SEQ 0218 
TEST 6: REREADS | 
| 
10011 060316 010337 073162 MOV R3, T26RSZ sSTORE RECORD SIZE 
10012 060322 022703 000412 CMP $266. ,.R3 sEND OF RECORD YET 
10013 060326 001270 BNE 145% 36R, IF MORE RECORDS TO READ 
10014 060330 1908: CKLOOP ;LOOP IF SELECTED 
3 104406 TRAP CSCLP1 
10015 060332 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
060332 L10104: 
060332 104403 TRAP CsESUB 
10016 060334 023727 002212 000017 CMP FATFLG, #15. 3IS ERROR COUNT AT 25 
10017 060342 103402 BLO 999% 368R, IF LESS THAN 25 
10018 060344 004737 017272 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
10019 060350 999%: 
10020 
10021 s¢ 
10022 3 
seeks sTEST 6, SUBTEST 3 
0024 Fy 
10025 sVERIFIES THAT THE a tor an 4 eo COMMAND WITH OPP=1 
10026 sCREAD REVERSE, SPACE FORWARD) AND SWB=0 OPERATES 
10027 sPROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
10028 sWITH A SERIES OF TEST RECORDS VARYING a LENGTH AND 
10029 sDATA CONTENT; THE FIRST FOUR BYTES CORD 
10030 3sCONT REC NUMBER ope phe POSITION ON 
10031 sTAPE). THE TAPE IS THEN REWOUND AG ACH 
100% iTEST RECORD. THE FOLLOWING SEQUENCE ts EXECUTED. 
10034 i. THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED 
pees 3 ANO THE RESULTS CHECKED 
3 
10037 se. A READ FORWARD COMMAND IS THEN ISSUED AND THE 
10038 3 DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
10039 3 POSITIONED PROPERLY AFTER THE eg 4 PREV 
10040 3 COMMAND HE TAPE D HAVE BEEN LEF 
10041 3 POSITIONED at THE START OF THE TEST RECORD) HE 
10042 3 READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
sees 3 PROPERLY AT THE START OF THE NEXT TEST RECORD. 
4 
10045 sTHE BYTE a ON EACH REREAD PREVIOUS COMMAND IS SET 
10046 3TO THE LENGTH OF THE EXPECTED RECORD, NO 
10047 sEXCEPTIONAL CONDITIONS SHOULD OCCUR. 
10048 3 
10049 3 
10050 Fy 
10051 3 
10052 od 
10053 
10054 060350 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
060350 76.3: 
060350 104402 TRAP Ccsesus 
10055 060352 004737 075720 JSR PC, T26REST sSET COMMAND PACKET 
10056 060356 005037 073156 CLR T26CNT sCLEAR TAPE RECORD COUNTER 
10057 060362 004737 076012 JSR PC. T26RT2 3SET UP OTHER COMMAND PACKET 
etd 060366 004737 076054 JSR PC. T26RTS 3SET UP OTHER COMMAND PACKET 
soeee §906660660606060606066006060606606066660660606600606606606000006000080008 
a 
10062 sISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 





i 
| 
| TSV7 - HARDWARE TESTS 1-8 


10063 





SO 
012124 
013737 


012704 


016064 
002212 


002172 
073000 


010752 
002212 


011104 
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073020 


3 
{RaSOERARHSEAKEEMHARASERALERAOALAOASASOSSEHKRHAASHKAOSHASGASDSADSOASER 


JSR PC, SOFINIT 300 INITIALIZE On CONTROLLER 
BCS 20% :8R IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 }CONTENTS OF TSSR REGISTER 
ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP  CSEROF 
.WORD 621 
[WORD SFIERR 
: SFIMSG 
20%: MOV UNITN, T260SW ;SET UP UNIT NUMBER 
MOV @T26PACKET .R4 sSUBROUTINE NEEDS PACKET ADORESS 


FESSOAESEESSEESSEESEEESEEESEESSEESSESEEESEEESEEESEEDESESEEDESEESEEES 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
HOTT T TTT TT TTTTTT TTT TTT TTTTTTTTTTTTTTTTTTTTTTTTTTT TTT TTT TTT TT TTT TT, 


JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
a 26% s6R, IF COMMAND ISSUED OK 


FATFLG sBUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 


26%: CKLOOP sLOOP IF SELECTED 


$ CORASSSESSOSSEESSESEEESEEESSESESESESEESEEESESSEESEAESEEEEEEESEEESEE 
i 
sISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


3 
PSP HSSOSSEKLAKKAAEAHSSARERHLEKASEHOHERAHSSKEDADEAKEHADSE SEHEDAKAREKS 


JSR PC REWIND sCALL TAPE REWIND COMMAND 
8cs 30% 36R, IF NO PROBLEM 
MOV TSSR(RS),.R1 sGET TSSR 
MOV @SSR,R2 3SET UP EXPECTED TSSR 
MOV ROR sPACKET ADORESS SET UP 
INC FATFLG : Cc 
ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED ae 
. WORD 
. 
WORD 
30%:  CKLOOP ;LOOP IF SELECTED 
TRAP 


sOROSSSESSSESESESEESCOSSESESELESESESESEDESESESESESEEEEEEEEOEOESESES 
’ 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
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0115 ry 
Otte PSBHARKAESCEAKALRGASSSAEOKSHOLAKHSEOSHELAOHRSEAAASSESLSADLSALRESHSSHAEEKHKAGE 
101 
10118 060514 013701 073030 MOV T26BFR+6,R1 sPICK UP XSTO 
10119 060520 010102 MOV R1,R T UP EXPECTED 
10120 000002 BIS @81T1,R2 SET BOT BIT _IN EXPECTED 
10121 020102 CMP R1,R2 ;D0ES EXP = REC'D 
10122 001406 6EQ 40% 38R, IF EQUAL (OK) 
10123 060532 37 002212 INC FATFLG : 
10127 060536 ERRHRD ERRNO, T2680T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
060536 104456 TRAP § CSERHROD 
060542 ordirs “ $Seeot 
060544 [WORD EXPREC 
10128 060546 40%:  CKLOOP sLOOP IF SELECTED 
060546 104406 TRAP = CSCLP1 
10129 060550 012703 000400 Mov #256. ,R3 sRECORD SIZE 
10130 060554 013737 003114 073132 MOV FREE, T26RB sSTARTING WRITE BUFFER ADORESS 
1013s FPReHSASHAKRIKERHEEKESEAELEASSERABELASHAARHDASARAHRAKRRALEARAASAHRAEAKHE 
3 
10134 sWRITE DATA,CVC*1,ACK COMMAND 
3 
101 , PESHOSHSCKEHOKASERELASHREABAESEERELASHERAKSEEREDASAELESAUMASEEEHEESSAGHROAD 
10138 012737 140005 073130 MOV #140005 , T26PK3 sWRITE DATA,CVC#1, ACK 
10159 960570 012704 073130 aa MOV @T26PK3.R4 3SET UP R4 WITH P PACKET nDORES ADORESS 
‘ $ 
10141 060574 010300 = MOV R3.RO SET PATTERN IN CORRECT REGISTER 
060576 737 017512 JSR PC. FILL FILL MEMORY WITH RECORD SIZE 
10143 060602 010337 073136f MOV RS, T26SZ sSET UP RECORD SIZE IN PACKET 
060606 013777 073156 MOV TAPE RECORD NUMBER TO BUFFER 
10145 060614 737 000001 073156 ADD » T26ENT NUMBER READY FOR NEXT RECORD 
010465 000000 MOV R4.TSOBCRS) s ISSUE 
10147 004737 016340 JSR WAITF tWATT, FOR SSR TO ser 
10148 016501 MOV TSSRCRS).R1 weecreD 
10149 060636 012702 000200 MOV SR,R2 eet wpe eCrED 
060642 020102 CMP R1.R2 sARE THEY 
10151 060644 001406 6EQ 753 BR. 
10152 060646 7 002212 INC FATFLG COUNT 
0156 060652 ERRHRD ERRNO. WRTERR.PKTSSR iTSSR INCORRECT AFTER WRITE DATA 
060652 104456 TRAP CSERHRO 
060654 001161 .WORD 625 
060656 005111 “WORD URTERR 
060660 012136 “WORD PKTSSR 
10157 060662 75%:  CKLOOP sLOOP IF SELECTED 
060662 jos TRAP —s_« C8CLP A 
10158 060664 723 TST (R30 sGUMP THE RECORD SIZE 
10160 Oeeets Soieoi —- uw 1OR TF AT ENO OF WRITE SEQUENCE 
| 
10161 960674 000737 ee 3 658 sWRITE MORE RECORDS 
0655 : 
10168 060676 005037 073156 CLR T26CNT sSET RECORD COUNTER BACK TO ZERO 
rire § ©6000000600060000000000066060800606006000000000060600000006060000000008 


166 
10167 SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
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SEQ 0221 
TEST 6: REREADS 
10168 , | 
pte FARAAAAASAAAAASEAESSSESASSESESSEAERARAEAEESEEASEREAESSESSESSSSESSSESAESESES 
101 ’ 
10171 060702 004737 011104 JSR PC ,REWIND sCALL TAPE REWIND COMMAND | 
10172 060706 103413 Bcs 1308 i6R, IF NO PROBLEM 
10173 060710 016501 000002 MOV TSSRCRS),R1 :GET TSSR 
10174 060714 012702 000200 MOV @SSR,R2 SET UP EXPECTED TSSR 
10175 060720 010004 MOV RO,R4 sPACKET ADDRESS SET UP 
10176 060722 005237 002212 INC FATFLG sBUMP COUNT 
10180 060726 ERRHRD ERRNO, T26RWN,PKTSSR }REWIND NOT ACCEPTED 
060726 104456 TRAP CSERHRD 
060730 001162 WORD 626 
060732 074464 .WORD T26RWN 
060734 012136 .WORD PKTSSR 
10181 060736 130%: | CKLOOP ;LOOP IF SELECTED 
cae 060736 104406 TRAP CSCLP1 
rte SSSARARAAAASASSSASASESASEHASESEESAESESEASEEESESESEAESEASAKESEEESSEAESESD 
$ 
10185 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
ried | cedeenscasassesasansacancaseccasaccacescesesecseseceasosensesoeces 
10189 060740 013701 073030 MOV T26BFR+6,R1L sPICK UP XSTO 
10190 060744 010102 MOV R1i,R2 ;SET UP EXPECTED 
10191 060746 052702 000002 BIS eaiti, R2 ;SET BOT BIT IN EXPECTED 
10192 060752 020102 CMP R1,R2 ;D0ES EXP = REC'D 
10193 060754 001406 BEQ 140% :BR, IF EQUAL (OK) 
10194 060756 005237 002212 INC FATFLG sBUMP COUNT 
10198 060762 ERRHRD ERRNO, T26B0T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
060762 104456 TRAP CSERHRD 
060764 001163 .WORD 627 
060766 074175 .WORD T26B0T 
060770 015564 .WORD EXPREC 
10199 060772 140%: CKLOOP ;sLOOP IF SELECTED 
meee 060772 104406 TRAP CSCLP1 
socos FORA e MAAR AEAAEAAAT HEE MERAAASAREKHKARAEREAKRAEKEAAERARRHAARKADAEREHKRLR SSH 
10203 }ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
10208 ;BIT 15 SETS DIRECTION - O=FORWARD 1*REVERSE 
soser | ddbaeeesaeeseasasaenaseseaseasasansaseneesasensesecsesasecsesesens 
10208 060774 012703 000001 MOV #1,R3 sSPACE 1 RECORD FORWARD 
10209 061000 004737 010556 JSR PC, SPACE sSPACE CALL 
10210 061004 012703 000400 MOV ; sRECORD SIZE 
10211 061010 013737 0uv3114 073132 150%: MOV FREE. T26RB sSTARTING READ BUFFER ADDRESS 
sosts SERRE ARRERARARBARSAAARARERKREAAHAKERAHERARHAARHESABRHAEHEAASKERSAD 
3 
10215 sREREAD DATA,CVC=1,ACK, OPP COMMAND 
iosia | edaasassasacnccasacsesesecsessacesnccesccseseceasasecsasescascsees 
10219 061016 012737 161001 073130 MOV #161001, T26PK3 sREREAD DATA,CVC=1.,ACK, OPP COMMAND 


10220 061024 012704 073150 165%: MOV @T26PK3 ,R4 sSET UP R4 WITH PACKET ADDRESS 





| TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 


| 

| 

| 
10221 061030 
0222 061034 


010337 
0465 


012737 
010337 
0465 


073136 
000000 
016340 
000002 
000200 


002212 


000001 


140001 
073136 
000000 


016340 
000002 
000200 


002212 


121726 
073156 


002212 


000412 


073156 


073130 


1708: 


MOV R3,T26SZ 
MOV oe’ useeee 
JSR P 

MOV TSERCRS), Ri 
MOV @SSR ,R2 

CMP R1,R2 

BEQ 


INC FATFLG 
ERRHRD ERRNO, T26RRG,PKTSSR 


CKLOOP 
TST CR3)+ 
ADD #1, T26CNT 
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SEQ 0222 


SET UP RECORD SIZE IN PACKET 


31SS 
sWAIT FOR SSR TO SET 
3GET TSSR CONTENTS 
3SET UP EXPECTED 

3 ARE al ae 


FRARAAAAREAEREEEEEEREEEEEEEAERESEEEEEEEEEEEDEEEEEEEEERED1OEEEEEEEDE 
; 
sREAD DATA, CvC=1, ACK COMMAND 


b] 
PRRREKKEEAKERERAARKRERAEEEEEARAEEHAAAKARAEAERESARARARHAASRHARESABRRH 


195%: 


197%: 


200%: 


#140001 , T26PK3 
MOV R3,126SZ 

R4, M's Sa 
PC ,WAITF 


JSR 
MOV TSSR(RS).RL 

MOV @SSR,.R2 

CMP : 

BEQ 

INC FATFLG 

ERRHRD ERRNO,RDERR,PKTSSR 
CKLOOP 

MOV OF REE RL 

MOV T26CNT,R 

CMP R1,R2 

BEQ 

INC FLG 

ERRHRD ERRNO T26WNG, EXPREC 
CKLOOP 

CMP 0266. ,R3 

BEQ 200% 

BR 150$ 

ENDSUB 


+ Gg 

;TSSR INCORRECT AFTER REREAD DATA 
TRAP CSERHRD 
«WORD 628 
«WORD T26RRG 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CSCLP1 

sBUMP RECORD SIZE 

sBUMP TAPE RECORD COUNTER 

sREAD DATA, CVC=1, ACK COMMAND 

sSET SIZE INTO PACKET 

s ISSUE READ DATA COMMAND 

sWAIT FOR SSR 

;PICK T 

sSET UP EXPECTED 

31S THE TSSR OK 

;BR, IF TSSR OK (GOOD) 

;BUMP COUN 

;READ DATA COMMAND FAILED 
TRAP CSERHRD 
-WORD 629 
-WORD RDERR 
WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

sFIRST WORD FROM READ BUFFER 

;SET UP EXPECTED 

sIS TAPE POSITION CORRECT 

sKEEP GOING POSITION OK 

sBUMP COUNT 

sTAPE POSITION INCORRECT 
TRAP CSERHRD 
«WORD 630 
-WORD T26WNG 
«WORD EXPREC 
TRAP CSCLP1 


sAT MAX be a YET 
3BR, IF AT END OF THE SUBTEST 


;KEEP GOING MORE RECORDS 


3>>>3>>>>>>>> END SUBTEST >>>>>>>>>>>> 
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| 
| TEST 6: REREADS 


10304 061264 004737 
10305 061270 103407 
005237 


306 
10310 ary be 010001 
061300 104455 
061302 001167 
003650 
061306 012124 
10312 061310 013737 


10314 061316 012704 


21 
10322 061322 004737 
10323 061326 103407 


002212 
017272 


016064 
002212 


002172 
0/3000 


010752 
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000017 


073020 


L10105: 
TRAP CsESUB 
CMP FATFLG,#@15. :IS ERROR COUNT AT 25 
BLO 999% 38R, IF LESS THAN 25 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 
999%; 
%¢ 
iTEST 6, SUBTEST 4 
i VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1 
sANO SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS 
3 THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS 
sVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
sSWAPPED BYTES. 
3 
3 
ry 
H 
i- 
BGNSUB 3 >>>>>>>>>>>> ees >>>>>>>>>>>> 
“"" TRAP ss C$BSUB 
JSR PC, T26REST :SET COMMAND PACKET 
CLR T26CNT sCLEAR TAPE RECORD COUNTER 
JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
FRRARAAHAASEAESAASSESESOEEESESSAASEASSEAESERESEESAAEEESESEEESEEEEEEDEED 
} ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
| seeecacecasacasacescaseccsesasesesacacsesecesesesesesssseceseseses 
JSR PC, SOFINIT 300 INITIALIZE ON CONTROLLER 
Bcs 20% ;8R IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
«WORD 631 
-WORD SFIERR 
-WORD SFIMSG 
20%: MOV UNITN, T26D0SW ;SET UP UNIT NUMBER 
MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


sORAAAAEEEESSERAEEEESEEEREEEEREEERARSEEEEEEEEEEEEEEEEEEEEREEDEEEES 
i 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
GRO RAKRER ERAS RARER EREEREARAGHLARAREHRAERARAHKaLESAARRRSRRASALESSARSSH 


JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 
26% 38R, IF COMMAND ISSUED OK 


BCS 


SEQ 0223 


| 
| 
{ 
' 
! 
| 





005237 
010001 


104456 
001170 
005054 
012124 
104406 


013701 


1044 
015564 


104406 
012703 
013737 


002212 


011104 


000002 
000200 


002212 


073030 
000002 


002212 


000400 
003114 073132 


INC FATFLG 


MO RO,R1 
ERRHRD ERRNO, WRTMSG, SFIMSG 


26%: CKLOOP 
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sBUMP COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC es 


- WORD 
- WORD 
. WORD 


sLOOP IF SELECTED 
TRAP 


sPRRAAEAAEEEEEEASEEESEEESEEEEEESEEESERESEREDEEDESEEEEEDEEDEEEDEDEDE 
; 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


: 
PRHRKRAEREAEKARERHERRERRESAERHARRAARAEEERAEEHEERESHERKERHAKRESHEAAAEESARE 


JSR PC ,REWIND 


BCS 

MOV TSSRCRS),R1 
MOV @SSR ,R2 
MOV RO,R4 


INC FATFLG 
ERRHRD ERRNO, T26RWN,PKTSSR 


30%: CKLOOP 


sCALL_ TAPE REWIND COMMAND 
sORe id NO PROBLEM 


3 SSR 
3SET UP EXPECTED TSSR 
sPACKET ADDRESS SET UP 
sBUMP C T 

sREWIND NOT ACCEPTED 


sLOOP IF SELECTED 
TRAP 


j PRRASEAAEEESESERESSAESEEESEESEESERESESESEESEEEEREDEEEDEAEEEEDELEDS 
: 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


‘ 
PARES REAREREREARKEAARAREAHARSEHKRKAHRARKHAEKHKEARAHAHAEKASHLERAHKSARSARERR 


MOV T26BFR+6,R1 
MOV R1.R 

BIS #BIT1,R2 
CMP R1,R2 

BEQ 40% 

INC 


FATFLG 
ERRHRD ERRNO, T26B0T, EXPREC 


40%: CKLOOP 


MOV #256. ,R3 
MOV FREE , T26RB 


sPICK UP XSTO 
sSET UP _ EXPECTED 
sSET BOT oo ee 


0 
sBR, IF EQUAL (OK) 
BUMP COUNT 


sLOOP IF SELECTED 


TRAP 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


SERREAAAASSSEEESESESESEESSREDERESEEESESEEEESEASEHESEEDEEESEEDEEEEEEE 
3 
sWRITE DATA,CVC=1,ACK COMMAND 


3 
SERAAGKRARARRRAMHARHASSESKEREVARRERKSE RRR THAERKAHAESCRERRAEKSHSSHERHRALAD 


SEQ 0224 


CSERHRD 
634 
12680T 
EXPREC 
CSCLP1 





10375 
10376 061454 


10427 061632 


012737 
012704 


013701 
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140005 
073130 


017512 
073136 
073156 
000001 
000000 
016340 
000002 
000200 


002212 


000412 


073156 


011104 


000002 
000200 


002212 


073030 


MACRO YOS.02 


073130 
65%: 


121406 
073156 


75%: 


1208: 
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CLR 


#140005 , T26PK3 
@T26PK3 ,R4 


R3,RO 
PC .FILLMEM 


PC ,WAITF 
TSSRCRS).R1 
@SSR ,R2 
R1,R2 

75% 


FATFLG 
ERRNO, WRTERR ,PKTSSR 


CR3)+ 
#266. ,R3 
120% 

65% 


T26CNT 


sWRITE DATA,CVC#1,ACK COMMAND 
sSET UP R4 WITH PACKET ADORESS 


sMOVE TAPE RECORD 
sNUMBER READY FOR NEXT RECORD 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 

EXPECTED 


3SET UP 

sARE THEY EQUAL 

36R, IF OK 

sBUMP COUNT 

:TSSR INCORRECT AFTER REREAD DATA 

; TRAP CSERHRD 

-WORD 635 
-WORD WRTERR 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CSCLP1 


sBUMP THE RECORD SIZE 

sMAXIMUM SIZE YET 

38R, IF AT END OF WRITE SEQUENCE 
sWRITE MORE RECORDS 


sSET RECORD COUNTER BACK TO ZERO 


j PRAAARESEREEEEESEESEEEDEEEEEEEEEDEEESEEEDOEEEEEEEEEDEEDEEDDEEEDEEE 
? 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


a 
SERRE ARSASRAKREROARAARRESKRAREKGEAKREGEAERARARMSERAARRHERAHRARKSAREKH 


1308: 


CKLOOP 


PC ,REWIND 

130$ 

TSSRCRS),.R1 
@SSR,R2 

RO,R4 

FATFLG 

ERRNO, T26RWN,PKTSSR 


sCALL_TAPE REWIND COMMAND 
sens IF NO PROBLEM 


3 TSSR 

3SET UP EXPECTED TSSR 
sPACKET ADDRESS SET UP 
sBUMP COUNT 

sREWIND NOT ACCEPTED 


TRAP CSERHRD 
636 


- WORD 

-WORD 126RWN 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLPi 


{PRREEAOSSESEEESEEESEEEEEEDEESEEEEEEEEEEEEEEDEEEEEDEEEEDDEDEEDEDES 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
pRKEARSRALRRERERAEKREAALARRLARERRRAALAAAHGARRARARARLAKGHARAHAKHHABREAKRLAL 


MOV 


T26BFR+6,R1 


sPICK UP XSTO 


SEQ 0225 





! 
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! 
SEQ 0226 
TEST 6: REREADS 
10428 061636 010102 MOV R1,R2 1SET UP_EXPECTED 
10429 061640 052702 000002 BIS eBiTi1.R2 SET BOT BIT IN EXPECTED 
10430 061644 020102 CHP R1,R2 sDOES EXP = REC'D 
10431 061646 001406 BEQ 140% 18R, IF EQUAL COK) 
10432 061650 005237 002212 INC FATFLG sBUMP COUNT : 
10436 061654 ERRHRO ERRNO, T26B80T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
061654 1 TRAP — CSERHROD 
061656 001175 -WORD 637 
rt 074175 -WORD  T2680T 
061662 015 -WORD  EXPREC 
10437 061664 140%:  CKLOOP sLOOP IF SELECTED 
roase Cnteet 108406 TRAP = CSCLP1 
Hert SEOMKEAAORHAMERARARREEERERRAEREEEAREEE ARE AAEAHEEAEAAREMAREERARRHARH 
G 
10441 sISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
10448 iBIT 15 SETS DIRECTION - O=FORWARD  1=REVERSE 
044 3 
Heres FASRARKEAAAAMAERHERAERAAEAEARAAEKEARHEREARSEASHALASEAHAEAHEAREHKARAHHRH 
10446 061666 012703 000001 MoV #1,R3 SET UP SPACE FORWARD 1 
10447 061672 004737 010556 JSR PC, SPACE sISSUE SPACE COMMAND 
10448 061676 012703 000400 MOV #256. .R3 sRECORD SIZE 
10449 061702 015737 003114 073132 1508: HOV FREE, T26R8 sSTARTING READ BUFFER ADDRESS 
pets SERESRRAHEA REMARK EERARARAAAARERAREAERRALHREMRERHE HERRERA RA ARAL SR HH 
3 
10453 ;REREAD DATA,CVC=1,ACK, OPP COMMAND 
3 
reid PRSORERAREAAERARKAEAAARSEKAKSARARERLEREEREAARHREERLERRHEKARRERREKREALK 
i . 
10457 061710 012737 171001 073130 MOV #171001, T26PK3 sREREAD DATA.CVC=1, ACK, OPP C 
10458 061716 012704 0673130 165$: MOV @T26PK3,R4 SET UP R4 WITH PACKET ADDRESS 
10459 061722 010337 073136 MOV R3, T2682 SET UP RECORD SIZE IN PACKET 
10460 061726 010465 000000 MOV R4. TSDBCRS) sISSUE_COMMAND 
10461 061732 004737 016340 JSR iP sWAIT FOR SSR TO SET 
10462 061736 016501 000002 MOV TSSRCRS).R1 GET TSSR CONTENTS 
10463 061742 012702 000200 MOV @SSR,R2 sSET UP EXPECTED 
10464 061746 020102 CMP R1,R2 :ARE THEY E 
10465 061750 001406 BEQ :BR, 
10466 061752 005237 002212 INC FATFLG BUMP COUNT 
10470 061756 ERRHRD ERRNO, T26RRF ,PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
061756 104456 TRAP = CSERHRD 
061760 001176 -WORD 636 
061762 073405 -WORD T26RRF 
061764 012136 -WORD KTSSR 
10471 061766 170$:  CKLOOP sLOOP IF SELECTED 
061766 104406 TRAP = CSCLP1 
10472 061770 017701 121120 MOV OFREE Ri sFIRST WORD FROM READ BUFFER 
10473 061774 013702 073156 MOV T26CNT,R SET UP EXPECTED 
10474 062000 000302 SWAB éR2 iSWAP BYTES IN EXPECTED 
10475 062002 020102 CMP R1,R2 IS TAPE POSITION CORRECT 
10476 062004 001406 BEQ 190$ iKEEP GOING POSITION OK 
10477 062006 005237 002212 INC FATFLG BUMP COUNT 
10481 062012 ERRHRD ERRNO, T26WNG, EXPREC ;TAPE POSITION INCORRECT 
062012 104456 TRAP — CSERHRD 


062014 001177 -WORD 639 





| 
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SEQ 0227 
TEST 6: REREADS 
062016 073166 . WORD T26WNG ' 
062020 o1sses -WORD EXPREC | 
10482 062022 1908: CKLOOP 
062022 104406 TRAP CSCLP1 
10483 062024 005723 TST CR3)6 sNEXT RECORD SIZE 
1 OSes 062026 062737 000001 073156 ADD @1,T26CNT 3;BUMP TAPE RECORD COUNTER 
sosee J PRPAHAESESEEAESASEESESAEEEEESEESES ESAS SESEEEEEESESESEESESESEESEEE 
1 ’ 
Het 4 sREAD DATA, CVC=1, ACK COMMAND 
048 3 
rete { PRAAAEEESESEEEASESEEEEEEEASESEEESEESESESERESRESSEESEEERESESESEREESEEE 
1 ; 
10492 062034 012737 140001 073130 MOV #140001 , T26PK3 ers oern CvC=1, ACK COMMAND 
10493 062042 010337 073136 MOV R3,T26SZ Ze into PACKET 
10494 062046 010465 000000 MOV R4,TSOBCRS) + Pe cuE 
10495 062052 737 016340 JSR PC ,WAITF sWAIT 
10496 062056 016501 000002 MOV TSSRCRS), R1 3PI th 
10497 062062 C12702 000200 MOV sSET UP EXPECTED 
10498 062066 020102 CMP Ri Ro 3IS THE TSSR OK 
10499 062070 001406 BEQ :6R, IF TSSR OK (GOOD) 
10500 062072 005237 002212 INC FATFLG sBUMP COUNT 
10504 062076 ERRHRD ERRNO, T26RDF ,PKTSSR sREAD DATA COMMAND FAILED 
062076 104456 TRAP CSERHRD 
062100 001 - WORD 640 
062102 073336 .- WORD 26RO0F 
062104 0121 - WORD PKTSSR 
105CS 062106 215%: CKLOOP 3LOOP IF SELECTED 
962106 1 TRAP CSCLPi 
1 062110 017701 121000 MOV OFREE ,R1 sFIRST WORD FROM READ BUrFER 
10507 062114 013702 073156 MOV T26CNT ,R2 ;SET UP EXPECTED 
10 062 102 CMP R1,R2 :IS TAPE POSITION CORRECT 
1 062122 001406 BEQ sKEEP GOING POSITION OK 
10510 062124 37 002212 INC FATFLG sBUMP COUNT 
10514 062130 ERRHRD ERRNO, T26WNG,EXPREC i TAPE POSITION INCORRECT 
062130 104456 T CSERHRD 
062132 001201 7 1 
062134 073166 -WORD T26WNG 
062136 015564 WORD EXPREC 
10515 062140 217%: CKLOOP 
062140 TRAP CSCLP1 
10516 062142 022703 000410 CMP 0264. ,.R3 sAT MAX SIZE YET 
10517 062146 001401 BEQ 220% 38R, IF AT END OF THE SUBTEST 
10518 062150 BR 150% iKEEP GOING MORE RECORDS 
10519 062152 2208: 
1 062152 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
062152 L10 : 
062152 104403 TRAP CsESsuB 
10521 062154 023727 002212 000017 CMP FATFLG,#@15. ;IS ERROR COUNT AT 25 
10522 062162 103402 BLO 999% :8R, IF LESS THAN 25 
10523 0621 737 017272 JSR PC, CKDROP sTRY TO DROP THE UNIT 
10524 062170 999%: 
10525 
10526 3¢ 
10527 F 
10528 sTEST 6, SUBTEST 5S 
3 


} 
i 





105. 

10531 

10532 

10533 

10534 

10535 

105 

10537 

105. 

est 

10541 062170 
062170 
062170 

10542 062172 

10543 062176 

10544 062 

10545 

10546 

10547 

10548 

10549 

10550 

10551 

105S2 062206 

10553 062212 

10554 062214 
062220 

10559 062222 
062222 
062224 
062226 
062230 

10560 0622 

10561 

10562 062240 

10563 

10564 

10565 

10566 

10567 

10568 

10569 

10570 062244 

71 062250 

10572 062252 

10576 062256 
062260 
062260 
062262 
062264 
062266 

10578 062270 
062270 

10579 

10580 

105861 


00 
012124 
013737 


012704 


| TSV7 - HAROWARE TESTS 1-8 
TEST 6: REREADS 


075720 
076012 
076054 


016064 
002212 


002172 
073000 


010752 
002212 
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073020 


sVERIFIES THAT A REREAD PREVIOUS COMMAND READING A 
sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
sTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
sLONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 
sSTATES OF OPP (O AND 1). 

i 

: 

i 

t- 


BGNSUB p> >>>>>>>3>>> BEGIN SUBTEST >>>>>>>>>>>> 
““" TRAP ss C8BSUB 
JSR PC, T26REST sSET COMMAND PACKET 
JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
{ PHRSEERAEEAAAREEEEEEEEEEEEEEEESEEEEEEEEEEEEEEEDEEEEEEEEEDEEEEEEEESD 
} ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
| ceeecascccacescecascesaccssasesnasasessesescasasecsosesecsesessess 
JSR PC, SOFINIT 300 INITIALIZE ON CONTROLLER 
6CcS 20% 3B8R IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,w1 sCONTENTS OF TSSR REGISTER 
ERROF  ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 642 
-WORD SFIERR 
-WORD SFIMSG 
20%: MOV UNITN, T260SW :SET UP UNIT NUMBER 
MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


jORRESSEESEEEEEEESEESEERESEEESESEESEEEEEEEEEEEEDEEODEEEEEEEDEEESEEDS 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
PROREAARAKRAARRAARRAERAAHKKHAERHAGLAAEAEAEKRSAKAAAAAARHAAARSEAORASEDARAR 


JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 26% sB8R, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC aes 


26%: CKLOOP sLOOP IF SELECTED 


TRAP 
§ POOSEESEE6EEEEE66E0666000860000660000660000000000060000000000808088 
i 





SEQ 0228 
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SEQ 0229 
TEST 6: REREADS 

10582 sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

10385 ; SRAAASARSESALERARAAARESEESSSAEESSESEAEEASSEESSSASEEASESSASASEEEEEEEE 

10586 062272 004737 011104 JSR PC REWIND :CALL TAPE REWIND COMMAND 

10587 062276 103413 BCs 308 :6R, IF NO PROBLEM 

300 016501 000002 MOV TSSRC(RS),.R1 :GET TSSR 

10589 062304 012702 000200 MOV @SSR,.R2 ;SET UP EXPECTED TSSR 

10590 062310 010004 MOV RO,R4 sPACKET ADDRESS SET UP 

10591 062312 005237 002212 INC FATFLG ;BUMP COUNT 

10595 062316 ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 
062316 104456 TRAP CSERHRD 

320 001204 .WORD 644 

062322 074464 "WORD T26RWN 
062324 012136 “WORD PKTSSR 

10596 062326 30%: | CKLOOP ;LOOP IF SELECTED 

senat 062326 104406 TRAP CSCLP1 

tete4 3 SRAESSAAASSSASSSSSSSSSSSSESASSESSSSEESSASSSSSSKESSEESEHESEEAEEEEEEESE 

10600 READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

pers | : SPEASSKSSASSASSSASSASSSASSSESSESEASSEAASSSASSESSESSSEEASASEESEEEEEEEEEEEEE 

10604 062330 013701 073030 MOV T26BFR+6.R1 ;PICK UP XSTO 

10605 062334 010102 MOV ; ;SET UP EXPECTED 

10606 062336 052702 000002 BIS @B81T1,R2 ;SET BOT BIT IN EXPECTED 

10607 062342 020102 CHP R1,R2 ;D0ES EXP = REC'D 

10608 062344 001406 BEQ 403 :BR, IF EQUAL ¢ 

10609 062346 005237 002212 INC FATFLG ;BUMP COUNT 

10613 062352 ERRHRD ERRNO, T26B0T, EXPREC ;TAPE NOT AT BOT AFTER REWIND 
062352 104456 TRAP CSERHRD 
062354 001205 .WORD 645 
062356 074175 “WORD T26B0T 
062360 015564 "WORD EXPREC 

10614 062362 40%:  CKLOOP ;LOOP IF SELECTED 
062362 104406 TRAP  CSCLP1 

10615 062364 012703 001000 MOV #512. ,R3 sRECORD SIZE 

10616 062370 013737 003114 073132 MOV FREE, T26R8 ;STARTING WRITE BUFFER ADDRESS 

rtr4 3 SSSSESASSSSHASSSASSSSSSESEASASSAKESSESSAKSESASESKEEHKEEKEKAEEEEEEEOEEESD 

10620 }WRITE DATA,CVC#1,ACK COMMAND 

106e8 : $228606466666 0666 6606666606664606646686668866666866666466666666666866 

10624 062376 012737 140005 073130 MOV #140005, T26PK3 sWRITE DATA,CVC=1,ACK COMMAND 

10625 062404 012704 0/3130 eu MOV OT26PK3.R4 ;SET UP R4& WITH PACKET ADDRESS 

toes B38 oeas e5ai0 010337 073136 “MOV R3,126SZ ;SET UP RECORD SIZE IN PACKET 

10628 062414 010465 000000 MOV R4.TSDBCRS) 31S OMMAND 

10629 062420 004737 016340 JSR PC. WAITF ;WAIT FOR SSR TO SET 

10630 062424 016501 000002 MOV TSSRCRS), RI sGET TSSR CONTENTS 

10631 062430 012702 000200 MOV @SSR.R2 ;SET UP EXPECTED 

10632 062434 020102 CMP R1,R2 ;ARE THEY EQUAL 

10633 062436 001406 BEQ 753 


00 3BR, IF OK 
005237 002212 INC FATFLG sBUMP COUNT 
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SEQ 02350 


10638 062444 ERRHRD ERRNO, WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
062444 104456 TRAP CSERHRD 
062446 001206 .WORD 646 
062450 005111 ‘WORD WRTERR 
062452 012136 WORD PKTSSR 

10639 062454 75%:  CKLOOP ;LOOP IF SELECTED 
062454 104406 TRAP CSCLP1 

10640 062456 005303 DEC R3 sSET RECORD SIZE TO 511. 

10641 062460 013737 003114 073132 MOV FREE, T26RB sSTARTING READ BUFFER ADORESS 

sees : SEAASSSAEEASEASASEEAEASEAAESSASESEHRASSESSEASESESHESESESEEKEEEEEEEEEEEEE 

0644 3 

10645 sREREAD DATA,CVC#1,ACK,OPP=1 COMMAND 

0646 7 

road PeSRaREHAESAEEHREERERES SSESSSSASAHASHESESSASEAASSESSEEEESEEEEEEEEEESEE 

10649 012737 161001 073130 MOV #161001 T26PK3 REREAD DATA CVC#=1, ACK, OPP=1 1 COMMAND 

10650 062474 012704 073130 165%: MOV OT26PK3,R4 3SET 4 WITH PACKET ADDRESS 

10651 062500 C10337 073136 MOV 126 3SET UP Re CORD” SIZE IN PACKET 

10652 062504 010465 000000 MOV R4.TSDBCRS) sISSUE COMMAND 

10653 062510 737 016340 JSR WAL {WAIT FOR SSR TO SET 

10654 062514 016501 000002 MOV TSSRCRS).R1 3GET TSSR CONTENTS 

10655 062520 012702 100204 MOV @SSR!SC!GIT2,R2 3SET UP EXPE 

10656 062524 020102 CMP R1,R2 ;ARE THEY € 

10657 062526 001406 BEQ 36R, IF 

10658 062530 005237 002212 INC FATFLG ;BUMP COUNT 

10662 062534 ERRHRD ERRNO, T26TRL.PKTSSR HTSSR INCORRECT AFTER REREAD DATA 
062534 104456 TRAP  CSERHRD 
062536 001207 .WORD 647 

075542 “WORD T26TRL 
012136 ‘WORD PKTSSR 

10663 062544 170%: | CKLOOP ;LOOP IF SELECTED 

a 06 104406 TRAP = CSCLP1 

10665 PROEHHKKESEREKEKEAEAEGARERAEKSARHREERBERMASHAEREAEHASORAADREEHAEALERHESDD 

10666 ry 

10667 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

ry 

soeee PMAKKAKAAAEAHAEKEARKASSHAKEEHRKAHKEHELEKKAARKKEHAARKAKAALSHEASSHAAHLAREDS 

1 

10671 062546 013701 073030 MOV T26BFR+6,R1 :GET MESSAGE BUFFER 

10672 062552 010102 MOV R sSET UP EXPECT 
062554 052702 010000 BIS @81T12,R2 ;SET THE RLL BIT IN EXPECTED 

10674 062560 020102 CMP R1,R2 sARE THEY E 
062562 001406 BEQ 180% 38R, IF EQUAL CALL IS WELL) 

10676 062564 005237 002212 INC FATFLG ;BUMP C 

10680 062570 ERRHRD ERRNO, T26LON,EXPREC ;THE RLL BIT WAS NOT SET IN XSTO 
062570 1044 RAP —s- CSERHRO 
062572 001210 .WORD 648 
062574 075310 “WORD T26LON 
062576 015 “WORD EXPREC 

10681 062600 180%:  CKLOOP ;LOOP IF SELECTED 
062600 TRAP —«- C#CLP1 

10682 062602 012703 000777 MOV #511. ,R3 sSET RECORD SIZE 

10683 062606 013737 003114 073132 MOV FREE. T26RB STARTING READ BUFFER ADORESS 

10685 {SERRA AREKEEAASAKEAAHRSSEHKKSERESKARAEASAAHMEAESHAASAAASSARESARSHKEKSH 





| 
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10691 062614 012737 
0692 


062662 
062662 104456 
062664 001211 
062666 C75542 
062670 012136 

10705 062672 
062672 104406 

10706 

10707 

107 

107 

10710 

10711 

07 


10712 
10713 062674 013701 
10714 062700 pt od 
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141001 
073130 
073136 
000000 
016340 
000002 
100204 


002212 


073030 
010000 


002212 


002212 
017272 
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073130 


000017 


SEQ 0231 


REREAD DATA,CVC#1,ACK COMMAND 


3 
FRSHRERHEARAAAHEAAKASAAAHAKLAKLAARHAKSHAREARESAAKEAHRHASSOSARAKSSAERSHALS 


MOV #141001, T26PK3 sREREAD DATA CvC#1, ACK COMMAND 
365%: MOV @T26PK3,R4 ;SET UP R4 WITH PACKET 
MOV R3, 12652 SET UP RECORD” Sze IN PACKET 
MOV R4.TSDBCRS) SUE COMMAND 
JSR PC WALTE ;WAIT FOR SSR TO SET 
MOV TSSRCR sGET TSSR CONTENTS 
MOV pasrisciérte, R2 sSET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 3708 :6R, IF 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26TRL.PKTSSR ;TSSR INCORRECT AFTER REREAD DATA 
TRAP  CSERHRO 
.WORD 649 
"WORD T26TRL 
“WORD PKTSSR 
370%:  CKLOOP ;LOOP IF SELECTED 


TRAP CsCLP1 
$ PRBROSEEEEEESS EESEEEEESESESEEESEESERESSESEEESEESEEESEEEEEEESSEEEEE 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


$ 
je BROhAGEHEDEESEHEHKOOAKEDLRKSEKROVADSLEEROASERESEADSAESRAGCKABESSAASHERA 


MOV T26BFR+6,R1 3sGET MESSAGE BUFFER 

MOV R1,R2 sSET UP EXPECT 

BIS 6IT12,.R2 ;SET THE RLL BIT IN EXPECTED 

CMP R1,R2 sARE THEY 

BEQ 380% 36R, IF a CALL IS WELL) 

INC FATFLG sBUMP C 

ERRHRD ERRNO, T26LON,EXPREC ; THE RLL BIT WAS NOT SET we xSTO 

CSERHRD 
"ORD 650 
-WORD T26LON 
-WORDB EXPREC 
3803: CKLOOP 

TRAP CsCLP1 

ENDSUB 3>>>>>>>2>>>>> END SUBTEST >>>>>>>>>>>> 

L10107: 

TRAP CsESsus 

CMP FATFLG,@15. sIS ERROR COUNT AT 25 

BLO 999% 36R,. IF LESS THAN 25 

JSR PC.CKDROP sTRY TO THE UNIT 


999%: 
%¢ 


iTEST 6, SUBTEST 6 


;VERIFIES THAT A_REREAD PREVIOUS COMMAND READING A 
sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 
; TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 








10737 

107 

10739 

107 

10741 

10742 

10743 

107 

10745 

107 

10747 062746 
062746 
062746 

10748 062750 

10749 062754 

10 062760 

10 

10 

10 

10754 

10755 

10756 

10757 

10758 062764 

10 062770 

10760 062772 

10764 062776 
063000 
063000 
063002 
063004 
063006 

10766 063010 

10767 

10768 063016 

10769 

10770 

Br 

Bre 

10774 

10775 

10776 063022 

10 063026 

10778 063030 

10782 063034 

10763 063036 
063036 
063040 
063042 
065044 

10784 065046 
06 

1078S 

10786 

10787 

10768 





Oo 
013737 
012704 
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075720 
076012 
076054 


016064 
002212 


002172 
073000 


010752 
002212 
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073020 


sSHORT (RLS) BIT SET. IT IS VERIFIED THAT THE 
oneotaee BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER 
sCONTAINS THE NONZERO VALUE (E.G., THE 
sOIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE 
SACTUAL eo ps ). RESULTS ARE VERIFIED FOR BOTH 
sSTATES OF OPP (O AND i). 

: 

8 

: 

ge 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
F TRAP «8B SUB 
JSR PC. T26REST sSET COMMAND PACKET 
JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T26RTS 3SET UP OTHER COMMAND PACKET 
§O600606000066000666000606006606060660006600008606068000000S0086EEE088 
i ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
| eecescesccscesccsesscssesccssassacccscssessessesoocecoesoosseseese 
JSR PC,.SOFINIT 300 INITIALIZE ON CONTROLLER 
bcs 20% 36R IF INIT WAS OK 
INC FATFLG 3sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
a 651 
‘ SFIERR 
« SFIMSG 
208: MOV UNITN, T260SW sSET UP UNIT NUMBER 
MOV @T26PACKET ,R4& sSUBROUTINE NEEDS PACKET ADDRESS 


jPSOSSESESSESESSESESEESEESESEESESESEESEESEESEDEESESEESEEEEESESESEEE 
iMRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


$ 
p@eeee es FSSSRSGSSGGHRSES SLR SasSMase aH HASH SSW ase Shee Sse ssl ehaseaeas 


JSR PC .WRTCHR sISSUE WRITE CHARACTERISTICS 

6cs 26% s6R, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 iSAVE CONTENTS OF TSSR 

ERRHRD ERRNO. WRTMSG, SFIMSG sWRITE CHARACTERISTISC rane 
TUorD 
. WORD 
. WORD 

26%: CKLOOP sLOOP IF SELECTED 

TRAP 


j COSSSSSSSSSESESSESESSSESESESESEEEEESEEEESEESESEEESESESEEEEEEESEESE 
i 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


SEQ 0232 
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19790 - SAAOBEMASDELKALARERSGRMEDAASRESENASESHARADHAASKEERSEASEMALAKERAEHALSOHEOAS 
10792 063050 7 011104 JSR PC REWIND :CALL TAPE REWIND COMMAND 
10793 063054 1 BCS 30 36R, IF NO 
10794 063056 016501 000002 MOV TSSRCRS).R1 sGETt T 
10795 063062 012702 000200 HOV @SSR,R2 sSET ue EXPECTED TSSR 
010004 MOV RO,R4 PACKET ADORESS SET UP 
10797 063070 005237 002212 INC FATrLG 
10801 063074 ERRHRD ERRNO, TO6RWN,PKTSSR }REWIND NOT ACCEPTED 
063074 TRAP  CSERHROD 
063076 00121 .WORD 653 
063100 07 “WORD  T26RUN 
063102 012136 “WORD  PKTSSR 
10802 063104 30%:  CKLOOP ;LOOP IF SELECTED 
4 063104 104406 TRAP —s-« CSCLP1 
seed SSRHESARAAARHHAaKHAESESLACHAAIEAKOHKASASESEAGARRLASHEASHEALAALSAERASREH 
: IREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
30008 ; SROKSKRESHEHREREEAREABRGALSEHEAEAAEALASHERESKEKERESEEACESKLESHESSLESBA 
108610 063106 013701 073030 Mov T26BFR+6,R1 sPICK UP XSTO 
108611 063112 010102 MOV 1,R2 sSET UP EXPECTED 
108612 063114 02 000002 BIS @6iT1,R2 sSET BOT BIT IN EXPECTED 
108613 063120 020102 CHP R1,R2 ;D0ES EXP = REC'D 
10814 063122 001406 BEQ 403 1BR IF EQUAL (OK) 
10815 063124 37 002212 INC FATFLG 
10819 063130 ERRHRD ERRNO, T2680T, EXPREC iTAPE NOT AT BOT AFTER REWIND 
063130 104456 TRAP  § CSERHMROD 
063132 1216 . WORD 654 
134 0741 “WORD 
063136 564 “WORD EXPREC 
108620 063140 40%:  CKLOOP sLOOP IF SELECTED 
063140 104406 TRAP —s« CCL P12 
108621 063142 012703 000400 MoV €256. RS sRECORD SIZE 
10822 063146 013737 003114 073132 MOV FREE,T sSTARTING WRITE BUFFER ADORESS 
10028 $ SOSRSESEAERSESEELASSESSSESOLELAGDEEAAEHSEEBKLALAAGASERAASEARBANSLDARGAD 
10626 WRITE DATA,CVC*1,ACK COMMAND 
: BAGSSSCEOSOSHASSE&SHASCRASSLESKEBASHESLANSESEHSEHKABAESESEL OLHOOHLLSESBR 
012737 140005 073130 0140005 , T26PK3 WRITE DATA.CVC*1, ACK COMMAND 
012704 073130 Steeexs na SET UP R4 WITH ADORE SS 


op 4 
FATFLG 
ERRNO. URTERR ,PKTSSR iTSSR Rie ae AFTER URITE DATA 


EEEEEEEEES 
nee 
3 
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063376 


104406 
012703 
013737 


012737 
012704 


013701 


001000 
003114 


161001 
30 


073030 
040000 


002212 


073026 
000400 


002212 
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073132 


073130 


TRAP CSERHROD 
. WORD 5 
"WORD WRTERR 
75% CKLOOP LOOP IF SELECTED sate” — abagi 
: KL 3 
TRAP  CSCLP1 
MOV 0512. sRECORD SIZE 
MOV FREE, *+56RB ;STARTING READ BUFFER ADDRESS 
3 SECRAEAAEAEARASASEASAREASEASEASEASARESSAREEASEASREASEASEEEASEESEEEEEEEE 
u 
;REREAD PREVIOUS, ACK,CVC#1,0PP=1 
+ 
LER ERAERHEARARH REARS RAEKREREEAHEAREARAEEAREKAKHAKEKEEEAKHERESKSESAB 
MOV #161001, T26PKS ;REREAD PREVIOUS, ACK,CVC#=1 opp 
165%: MOV @T26PK3,R ;SET UP R4 WITH BACKET ADRES 
MOV RS reese ;SET UP RECORD SIZE IN PACKET 
MOV R4.TSDBCRS) ;ISSUE COMMAND 
JSR PC.WALTF ;WAIT FOR SSR TO SET 
MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
MOV @SSR!SC!BIT2,R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 170 :BR, 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26TRL.PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP  C$ERHRD 
.WORD 656 
[WORD T26TRL 
‘wORD PKTSSR 
170$:  CKLOOP ;LOOP IF SELECTED 
TRAP _— C$CLP1 
PReEKHKAARRKEAAARARLEERKAERERERAEAAEKARKEKAARAKRKARREAKKRAKARAEHAD: BARS 
3 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
b 
PREMERA RAHREEAREAKERAEHEAREAEAARAAHAAAREHHHEKALASAHAAEHHAKHEHRKASARHAH 
MOV T26BFR+6,R1 ;GET MESSAGE BUFFER 
MOV R1,R2 ;SET UP EXPECTED 
BIS @681714,R2 3SET THE ys BIT IN EXPECTED 
CMP R1.R2 ;ARE THEY EQUAL 
BEQ 180% ;BR, IF EQUAL CALL IS WELL) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26LOP,EXPREC ;THE RLL BIT WAS NOT SET IN XSTO 
TRAP CSERHRD 
.WORD 657 
"WORD T26LOP 
“WORD EXPREC 
180%:  CKLOOP 
CSCLP1 


MOV T26BFR+4,R1 


MOV #256. ,.R2 sTHIS SHOULD BE THE DIFFERENCE 
CMP R1,R2 sIS THE DIFFERENCE CORRECT 
BEQ 190% :BR, CORRECT 

INC FATFLG ;BUMP COUNT 


TRAP 
sPICK UP RESIDUAL BYTE COUNTER 


SEQ 0234 
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| TEST 6: REREADS 

| 10896 063402 
02 


104 
012703 
013737 


001000 
003114 


012737 141001 
30 


013701 
010102 
052702 
10932 063520 020102 


10933 063522 001406 
0934 S24 005237 


073030 
040000 


002212 


073026 
000400 
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073132 


073130 


ERRHRD ERRNO, T26PBP ,EXPREC 


sRBPCR NOT CORRECT 


TRAP § C#ERHRD 
.WORD 658 
“WORD T26PBP 
90%: CKLOOP LOOP IF SELECTED ee 
1 : L : 
TRAP CSCLP1 
MOV #512. ,R3 sRECORD SIZE 
MOV FREE. T26RB sSTARTING READ BUFFER ADDRESS 
FERAAAAASEASHSHSAESSSEAEHEAESESAEEREEAEESEEESESSESESSESESESEEEESEESSE 
] 
sREREAD PREVIOUS, ACK,CVC#1,0PP=0 
a 
t SEAAASASASSSASSSASAASSASASSSHAKESEKESEASESEEEEEEESEEESEEEEEEEESEEESEEEEEEEEE 
MOV 0141001, T26PK3 ;REREAD PREVIOUS ACK. CvCeL OPP =0 
MOV OT26PK3,h4 :SET UP R4&4 WITH PACKET ADDRESS 
MOV R3, 12652 ;SET UP RECORD SIZE IN PACKET 
MOV R4.TSDBCRS) ISSUE COMMAND 
JSR ,WAITE ;WAIT FOR SSR TO SET 
MOV TSSR(RS).R1 ;GET TSSR CONTENTS 
MOV @SSR!SC!B1T2,R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 2708 :8R, IF 
INC FATFLG BUMP T 
ERRHRD ERRNO, T26TRL,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP  CSERHRD 
.WORD 659 
"WORD T26TRL 
“WORD PKTSSR 
270%:  CKLOOP ;LOOP IF SELECTED 
TRAP - CSCLP1 
PPaSEHAAHEAHASKAREARAREREHEKERERHSAGEAHAEAEKAAREGAHRAAARAREAEHRSEKEAHASASH 
8 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
o 
PPEREREAAGKAESASHAAEKARHHAHAAKEKAKRHRHSKAGHAMHSASHHAHAHESESEHSAKHKAKRE RASH 
MOV T26BFR+6,R1 :GET MESSAGE BUFFER 
MOV R1,R2 SET UP EXPECTED 
BIS @81T14,R2 3SET THE ys BIT IN EXPECTED 
CMP R1,R2 ;ARE T QUAL 
BEQ i8R, IF EQUAL CALL IS WELL) 
INC FATFLG ;BUMP C 
ERRHRD ERRNO, T26LOP,EXPREC THE RLL BIT WAS NOT SET IN XSTO 
RAP = CSERHRD 
.WORD 660 
"WORD T26LOP 
“WORD EXPREC 
280%: CKLOOP 
CsCLP1 


T26BFR+4,R1 
MOV #256. ,R2 
CMP R1.R2 

BEQ 290% 


TRAP 
sPICK UP ys hs | COUNTER 
sTHIS SHOULD BE THE DIFFERENCE 
sIS THE 2 CORRECT 
sB8R, IF CORRECT 


SEQ 0235 





10947 063560 
063560 
063562 
063564 
063566 

10948 063570 
06357 

10949 063572 
063572 
063572 

10950 063574 

10951 06 

10952 06 

10953 063610 

10954 

10955 

10956 

10957 

10958 

10959 

10960 

10961 

10962 

10963 

10964 

10965 

10966 

10967 

10968 

10969 

10970 

10971 

10972 

10973 

10974 

10975 063610 
0636 
06 

10976 063612 

10977 063616 

10978 063622 

10979 

10980 

10961 

10962 

10983 

10964 

10985 

1 06 

10987 063632 
06 


3646 
063650 
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004737 


104455 
001225 
003650 
012124 


002212 000017 
017272 


075720 
076012 
076054 


016064 
002212 


“3IS_ THEN REWOUND AGAIN. FOR EACH TEST —— 
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ERRHRD ERRNO, T26PBP ,EXPREC sRBPCR NOT CORRECT 


TRAP CsERHRD 
. WORD 660 
- WORD T26P6P 
290% CKLOOP LOOP IF SELECTED : athapes: 
8 : 
TRAP CSCLPi 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
110110: 
TRAP CsEsusB 
CMP FATFLG, #15. :IS ERROR COUNT AT 25 
BLO 999% 36R, IF LESS THAN 25 
‘ JSR PC ,CKDROP sTRY TO DROP THE UNIT 
999%; 


¢ 


;TEST 6, SUBTEST 7 
; 


VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0 
;AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST 

RE AND THEN WRITTEN WITH A SERIES OF TEST 
RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE 
;TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
;NEXT COMMAND ISSUED. RESULTS (STATUS, DATA, 
ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 
;NEXT COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
;RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 
a 

G 

i- 


BGNSUB g>>>>>>>>>>>> a O-line >>>>>>>>>>>> 
TRAP Cs6SUB 
JSR PC, T26REST sSET COMMAND PACKET 
JSR PC, T26RT2] iSET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
sPARASAHEESESASEASESESEESESESESEEEESEEEESESEEEEEESEEOEEEEEEEESEEEED 
TISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
OOTP T TOT TTT TT TTT TTT TOT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT OTT T TT TTT TTT 
JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
BCS 20% 368R IF INIT WAS OK 
INC FATFLG 38 OUNT 
Vv RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR, SFIMSG SFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 661 
. WORD SFIERR 
-WORD SFIMSG 


SEQ 0236 
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SEQ 0237 
TEST 6: REREADS 
10994 063652 013737 002172 073020 20%: MOV UNITN, T260SW ;SET UP UNIT NUMBER | 
10996 063660 012704 073000 MOV @T26PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS | 
ioe J RARARAAAAAEAASLASEAASSEAEASEAESASAAEAAAAEAAEEASSSESSESSSSSSSSASESEESEAEEE | 
7 
11000 ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
1105 . SEEAAAAAAAAAAARSESASARESEASESALESEASAESERASEESESASARESEAEASEEEEEEEEE 
11004 063664 004737 010752 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
11005 063670 103407 Bcs 268 :8R, IF COMMAND ISSUED OK 
11006 063672 005237 002212 INC FATFLG ;BUMP COUNT 
11010 063676 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
11011 063700 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
063700 104456 TRAP § CSERHRD 
063702 001226 .WORD 662 
063704 005054 “WORD WRTMSG 
063706 C12124 “WORD SFIMSG 
11012 063710 268: CKLOOP ;LOOP IF SELECTED 
aaa 063710 104406 TRAP CSCLP1 
tote PROEREEKHERREAKAKRALHAMAESEAEKAAKREREERHEAEEEHEEAHEAEHAEAARGARARHERERSH 
ii 
11016 }ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
41038 | Mddeedacasessasacsanesesnaceceasaseasasessesesecsososeccosesoesess 
11020 063712 004737 011104 JSR PC REWIND sCALL TAPE REWIND COMMAND 
11021 063716 103413 Bcs 30$ :6R, IF NO PROBLEM 
11022 063720 016501 000002 MOV TSSRCRS),R1 sGET TSSR 
11023 063724 012702 000200 MOV @SSR,R2 SET UP EXPECTED TSSR 
11024 063730 010004 MOV RO,R4 sPACKET ADDRESS SET UP 
11025 063732 005237 002212 INC FATFLG ;BUMP 
11029 063736 ERRHRD ERRNO, T26RWN,PKTSSR } REWIND NOT ACCEPTED 
063736 104456 TRAP §CSERHRD 
063740 001227 .WORD 663 
063742 074464 “WORD T26RWN 
063744 012136 “WORD PKTSSR 
11030 063746 30$: CKLOOP ;LOOP IF SELECTED 
an 063746 104406 TRAP CS$CLP1 
11038 ,EoERHRAAEEARRARAKEARLAEHESERAARRAETHAEREKARELA GA ES CHAREKAREREGRHREDRH ARH 
11034 TREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
11038 : SSESSSSSESSKASSSSSASSSAKSSASHASHSASSASESKAHSEKEKEKEEKEEEEEEEEEEEEEEESD 
11038 063750 013701 073030 MOV T26BER*6, R1 sPICK UP XSTO 
11039 063754 010102 MOV Ri 3SET UP EXPECTED 
11040 063756 052702 000002 BIS Saint. R2 iSET BOT BIT IN EXPECTED 
11041 063762 020102 CMP R1,R2 sD0ES E REC'D 
11042 063764 001406 BEQ 403 iBR, IF EQUAL COK) 
11043 063766 005237 002212 INC FATFLG sBUMP COUNT 
11047 063772 ERRHRD ERRNO, T26B0T,EXPREC iTAPE NOT AT BOT AFTER REWIND 
063772 1044 TRAP § CSERHRD 


S56 
063774 001230 - WORD 





ee 
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063776 074175 
000 015564 
11048 064002 
002 104406 
012703 


000400 
013737 003114 


140005 
073130 


017512 
073136 
000000 
016340 
000002 
000200 


002212 


00 
11075 064102 
02 


000414 


14 
13080 064116 


i 
11088 06411 011104 


000002 
000200 


002212 


ee 
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SEQ 0238 
.WORD T26B0T 
"WORD €XPREC 
40%: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
MOV 6256. ,R3 sRECORD SIZE 
073132 MOV FREE, T26RB8 sSTARTING WRITE BUFFER ADDRESS 
t SESSHKAAAALARASASAAAARAARAAEARSASEASESSESSESESEESESAEAEEAEEESEEEOEEEEEEE 
i 
sWRITE DATA,CVC#1,ACK COMMAND 
a 
PRSaAOKPEAERAREKARHAKAERAAAAAAKAAKAAHEEHEHHASHHRAAERARTASAREHSSWMALS 
073130 MOV #140005, T26PK3 ;WRITE DATA,CVC=1,ACK COMMAND 
on MOV @T26PK3,.R4 sSET UP R4 WITH PACKET ADORESS 
+ 
MOV R3,RO sSET PATTERN IN CORRECT REGISTER 
JSR PC. FILLMEM FILL MEMORY WITH RECORD SIZE 
MOV R3,126SZ SET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) sISSUE COMMAND 
JSR PC. WAITF ;WAIT FOR S 
MOV TSSR(RS),R1 :GET TSSR CONTENTS 
MOV @SSR.R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY E 
BEQ :8R, IF OK 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
.WORD 665 
"WORD WRTERR 
“WORD PKTSSR 
758: CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 
TST (R36 ;BUMP RECORD SIZE 
CMP $268. .R3 :END OF RECORD YET 
BNE 65$ ;8R, IF MORE RECORDS TO WRITE 
808: CKLOOP ;LOOP IF SELECTED 
TRAP = C$CLP1 
1208: 
FY 2606466606646 666666606626668666606846006066664664646646466664646660646666864 
3 
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
3 
FRAKES KAAEOAHRSEARHHASKACHAERASESRAKHAHASESAAAKSAHRHAAE SHAKE AREAERSDAEDEH 
JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
BCS 1308 s6R NO PROBLEM 
MOV TSSRCRS),R1 3GET TSsR 
MOV @SSR.R2 3SET UP EXPECTED TSSR 
MOV RO,R4 sPACKET ADORESS SET UP 
INC FATFLG 3BUMP COUNT 
ERRHRD ERRNO, T26RWN,PKTSSR }REWIND NOT ACCEPTED 
RAP CSERHRO 
.WORD 666 
"WORD T26RWN 
"WORD  PKTSSR 
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| 
SEQ 0239 | 
TEST 6: REREADS 
11098 064152 130$:  CKLOOP s;LOOP IF SELECTED | 
11099 Contos 108406 TRAP = C#CLP1 
ett SSRHAAAAASARESAAASESESESEAEESHAEEEAEESESESSSESEEEESSESESESEEEAESSEEEES | 
a 
11108 READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
18 OPP T TTT TTT TTT TTT TTT T TTT TTT OTTO TTT TTT TOT TTT TTT TTT TTT TTT TT TT TTT 
11106 064154 013701 073030 Mov T26BFR+6,R1 sPICK UP_XSTO 
11107 064160 010102 MOV R1,R2 SET UP EXPECTED 
11108 064162 052702 000002 BIS coir. R2 1SET BOT BIT IN EXPECTED 
11109 064166 020102 CMP R2 ;DOES EXP = REC'D 
11110 064170 001406 Bea 14G8 iBR. IF EQUAL COK) 
11111 064172 005237 002212 INC FATFLG sBUMP T 
11115 064176 ERRHRD ERRNO, T2680T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
064176 104456 TRAP  CSERHRD 
064200 001233 -WORD 667 
064202 74175 “WORD  T2680T 
064204 015564 “WORD EXPREC 
11116 064206 140$:  CKLOOP sLOOP IF SELECTED 
064206 104406 T CsCLPi 
11117 064210 012737 000400 073162 MOV #256. , T26RSZ ;STORE START RECORD SIZE 
11118 064216 000420 BR 150% SKIP THE SAPCE THIS TIME 
ttre | peepee tignascnetacinnpe<esiaadhindtc “atin ts aaa aan moaUnbmei 
11122 }ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
11123 sBIT 15 SETS DIRECTION - O=FORWARD 1*REVERSE 
fiise | ddbdaseasecsassacaasaasanseasscscacecsessascascesocsesscseaseesecs 
11127 064220 012703 000001 145$: MOV #1,R3 :SPACE ONE RECORD PARAMETER 
11128 064224 004737 010556 JSR PC, SPACE sCALL_SPACE ROUTI 
11129 064230 103413 BCS 150% :BR, IF NO PROBLEM WITH SPACE COMMAND 
11130 064232 016501 000002 MOV TSSR(RS).R1 sGET TSSR 
11131 064236 012702 000200 MOV @SSR,R2 SET UP EXPECTED TSSR 
11132 064242 010004 MOV RO, R4 sPACKET ADDRESS SET UP 
11133 064244 005237 002212 INC FATFLG sBUMP COUNT 
11137 064250 ERRHRD ERRNO, T26SC,EXPREC sPOSITION (SPACE RECORDS) FAILED 
064250 104456 TRAP CSERHRD 
064252 001234 -WORD 668 
064254 073577 “WORD T26SC 
064256 015564 “WORD  EXPREC 
11138 064260 150$:  CKLOOP 
064260 104406 TRAP = CSCLP 1 
11139 064262 013703 073162 MoV T26RSZ.R3 RECORD SIZE 
11140 064266 015757 0u3114 075132 MOV FREE, T26RB sSTARTING READ BUFFER ADDRESS 
ai68 SSRHAHHALALAEAREALAHARHOAAAAKKEKLEHASHERARHKALHAERHADSHAKEHRERHREKARSEHKHASSSSH 
11148 ;REREREAD DATA,CVC#1,ACK COMMAND 
tty : BREAALAGAGRALEARERRABAERRARSLARKREARASREARAGMARARSARAARARLASSARAKRVESD 
11148 064274 012737 141401 073130 MOV #141401, T26PKS sREREREAD DATA,CVC=1.ACK COMMAND 
11149 064302 012704 073130 165$: MOV @T26PK3,R SET UP R4& WITH PACKET ADDRESS 





11162 064352 
S2 


010337 
0465 
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073136 
000000 
016340 
000002 
000200 


002212 
003114 


000400 


002212 


073162 
000410 


002212 
017272 
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000017 


SEQ 0240 
HOV R3,726S2 ;SET UP RECORD SIZE IN PACKET 
MOV *TSDBCRS) :1SS 
JSR PC. WAIT sWAIT FOR SSR TO SET 
MOV TSSRCRS), RL :GET TSSR CONTENTS 
MOV @SSR,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY E 
BEQ 1708 :8R, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26WOC,PKTSSR }TSSR INCORRECT AFTER REREAD DATA 
TRAP  CSERHRD 
.WORD 669 
“WORD T26WDC 
70%:  CKLOOP LOOP IF SELECTED pee atleepe 
1 : L 3 
TRAP  CSCLP1 
MOV FREE ,R2 sCURRENT BUFFER ADORESS TO R2 
MOV R3,R4 ENT RECORD SIZE 
SUB 6256. .R4 FIRST LOCATION IN BUFFER 
173%: ADD R2.R4 ;SET UP POINTER 
CMP (R4),R3 s CHECK DATA READ (R3=DATA ALSO) 
BEQ 08 ALL IS WELL 
MOV CR4),R1 oreo D 
MOV R3,R2 OPEC TED MDATA 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26DTA,EXPREC ;DATA READ NOT = WRITTEN 
TRAP CSERHRD 
.WORD 670 
“WORD T26DTA 
“WORD EXPREC 
180%:  CKLOOP ;LOOP IF SELECTED 
TRAP = C$CLP1 
TST (R4)> :BUMP TO NEXT LOCATION 
SUB R2,R4 sCORRECT RECORDS SIZE VALUE 
CMP R4.R3 sEND OF RECORD YET 
NE 173% i8R, IF NOT AT END OF RECORD 
TST R3)+ ;BUMP RECORD 
MOV R3, T26RSZ iSTORE PRESENT RECORD SIZE 
CMP , sEND OF RECORD Y 
BNE 1 36R, IF MORE RECORDS TO READ 
190%:  CKLOOP ;LOOP IF SELECTED 
TRAP © CSCLP1 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10111: 


TRAP CsESUB 
CMP FATFLG,@15. sIS ERROR COUNT AT 25 
BLO 999% 3BR, IF LESS THAN 25 
e0ne JSR PC, CKDOROP sTRY TO DROP THE UNIT 
: 


¢ 

rTEST 6, SUBTEST 8 

iVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0 
sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS 


sT AME AS THAT USED IN SUBTEST 1, BUT IT IS 
;VERIF IED THAT DATA STORED BY THE COMMAND CONTAINS 


1250 064564 
11251 064570 


00 
012124 
013737 


012704 


004737 
103407 
005237 


010001 
104456 
001240 
005054 
012124 
104406 


004737 
103413 
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075720 
076012 
076054 


016064 
002212 


002172 
073000 


010752 
002212 


011104 
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073020 


sSWAPPED BYTES. 
3 

3 

5 

$ = 


SEQ 0241 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
TRAP = sC8BSUB 
JSR PC, T26REST 3SET COMMAND PACKET 
JSR PC, T26RT2 3SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
{ SAREAEEAEEEEERESEEEEEEREEEEESESEEEEEEESEEEEEAEEEESEESEESEESEEESESEE 
S ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
| S0beaedecnrsascessesnssacsasseseassascesascascaceasecsooseoeeseese 
JSR PC ,SOFINIT 300 INITIALIZE ON CONTROLLER 
BCS 20% 36R IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR ,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
«WORD 671 
-WORD SFIERR 
-WORD SFIMSG 
208: MOV UNITN, T260SW sSET UP UNIT NUMBER 
MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


PRAKAAEAKERKARSEARARAHEAEAARHERABAKAAEAKAHLERAKAKASSALARAR ARG REROALRSALS 
WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


e 
SERRA SGARLHERHAERHaAEEAARAAEHAAAEEHKKHAAREKAEERAALSERHKAREKRASHHASRAARK 


JSR PC ,WRTCHR sISSVE WRITE CHARACTERISTICS 
BCS 26% 38R, IF COMMAND ISSUED **« 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC ro 
- WORD 
- WORD 
- WORD 
26%: CKLOOP sLOOP IF SELECTED 
TRAP 


{ SPRESSEEESESEEAERESEESSSEESEEESESEERESEESSEDDEEEREEDEEEDEEDEEESEEES 
i 

sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

; 
jORROSERESSESSSSESEESEEEEEESEESEEDESESESESEDEEEEOEESEEESEEEEESEDES 


JSR PC, REWIND 
6CcS 308 


sCALL_TAPE REWIND COMMAND 
36R, IF NO PROBLEM 





016501 
012702 
010004 
005237 


C13701 
010102 


04406 
012703 
013737 


012737 
012704 
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000002 
000200 


002212 


000400 
003114 


150005 
073130 


017512 
073136 
000000 
016340 
000002 
000200 


002212 


MACRO YOS.02 Monday 16-Sep-85 13:41 Page 77-138 


073132 


073130 


MOV 
MOV 
MOV 
INC FATFLG 

ERRHRO ERRNO, T26RWN,PKTSSR 


TSSRCRS),R1 
@SSR ,R2 


30%: CKLOOP 


| PROCRASEERESEESESRESEESESSESESERESESEEEEESEEEESESSESEESEEEESEESEES 
’ 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


$ 
Pee ORERAKASHEEEKETEREAARACKAAERSEHGARHRSAAAAEAAAAREAAASHERRSAKRLARKRS HS 


MOV T26BFR+6,R1 

MOV R1,R2 

BIS @B1T1,R2 

CMP R1,R2 

BEQ 

INC FATFLG 

ERRHRD ERRNO, T26B0T, EXPREC 
40%:  CKLOOP 

MOV 0256. 

MOV FREE, * +B6RB 


PRHEKREAASESHRERAEARERESHAEKPERABEAREREAEAARKEERAEKAEKREARAHHKEHAARSLARREH 


WRITE DATA,CVC*1,ACK,SWB COMMAND 


3 
GREP BET ADAEAAGCHEEEAEHRERGRHEREHARERREEELAL ERE GRARGHMOAEASRASHHUESSH 


MOV #150005, T26PK3 
MOV @T26PK3.R4 
65%: 
MOV R3,RO 
JSR PC. FILLMEM 
MOV R3.126SZ 
MOV R4.TSOBCRS) 
JSR PC, 
MOV TSSRCRS), R1 
MOV @SSR.R2 
CMP R1,R2 
BEQ 753 
INC TFLG 


FA 
ERRHRD ERRNO, WRTERR,PKTSSR 


SEQ 0242 
3GET TSSR 
7 UP EXPECTED TSSR 
sPACKET ADORESS SET UP 
+ BCUEND NOT ACCEPTED 
’ 
TRAP CsERHRD 
«WORD 673 
- WORD PKTSSR 
3LOOP IF SELECTED 
TRAP CSCLPi 
sPICK UP XSTO 
3SET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 
i8R, IF EQUAL (OK) 
;BUMP COUNT 
; TAPE NOT AT BOT AFTER —- 
CSERHRD 
"GORD 674 
- WORD T2680T 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC=1,ACK,SWB COMMAND 


3SET UP R4 WITH PACKET ADDRESS 
sSET PATTERN IN CORRECT REGISTER 
;FILL MEMORY WITH RECORD SIZE 
3SET UP RECORD SIZE IN PACKET 


s ISSUE C 
sWAIT FOR SSR TO SET 


sGET TSSR CONTENTS 

3sSET XPEC 

sARE T E 

36R, 

3sBUMP COUNT 

sTSSR INCORRECT AFTER mire. DATA 
TRAP CSERHRD 
«WORD 675 
-WORD WRTERR 





| 
| 
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752 
11305 064754 
734 





012136 


005723 
022703 
001346 
104406 


013701 
010102 


000414 


011104 
000002 
000200 


002212 


000400 073162 
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SEQ 0243 
758% CKLOOP LOOP IF SELECTED ° Alege 
4 , TRAP —- CSCLP1 
TST (R36 sBUMP RECORD SIZE 
CMP 0268. ,R3 sEND OF RECORD YET 
80% eKLOOP set POOP IF SELECTED theme 
‘ , TRAP —- CSCLP1 
1208: 
PREAEAKAERKHESESAKASKEKSEKSEAAHRAKASHAAHSHERHEREHHRASKES HHS EHASHHRALLAL 
‘ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
| Reseaaeseeeassennssensssseeasssesacseesncseascssesaccsasscceencees 
JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
Bcs 130% :6R, IF NO PROBLEM 
MOV TSSRCRS).R1 :GET TSSR 
MOV @SSR.R2 ;SET UP EXPECTED TSSR 
MOV sPACKET ADDRESS SET UP 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 
TRAP CSERHRD 
.WORD 676 
“WORD 
‘WORD PKTSSR 
130%:  CKLOOP ;LOOP IF SELECTED 
TRAP  CSCLP1 
{EERO ESERESHRUAESAARTABMAAEAKKSEREHLGKALR SHEARER GRARKEEESERAVALHE RRL SSD 
}READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
| adsecsecsascassesenssesecsecsecsescessesecssessesecesesoseossesees 
MOV T26BFR+6,R1 :PICK UP XxSTO 
MOV R1,R2 3SET UP EXPECTED 
BIS @81T1,R2 SET BOT BIT_IN EXPECTED 
CMP ~R2 ;D0ES EXP = REC'D 
BEQ 140 i8R, IF EQUAL COK) 
INC FATFLG 8 
ERRHRD ERRNO, T2680T, EXPREC TAPE NOT AT BOT AFTER REWIND 
TRAP § CSERHRD 
; 677 
‘ 12680T 
EXPREC 
140%:  CKLOOP ;LOOP IF SELECTED 
TRAP  CSCLP1 
MOV 0256. , T26RSZ sSTART RECORD SIZE 
BR 1508 sSKIP SAPCE THIS TIME 


PORESREAASEHEKEHERKESASEHEACEEARESABSEESASHSESAASEKSHEKSESEAKLSKEHRAKSEREH 


SISSUE SPACE RECORDS COMMAND - VALUE » ae yiner NUMBER OF RECORDS 


;8IT 15 SETS DIRECTION - O=FORWARD 
3 
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SEQ 0244 


131332 3 SKERAKESEKERKKHAREARAKARKARKAKHASRASARHSCASSSASRAARSEARSLEAASSSSKHAKCASSRERES 
ii 
11357 065072 012703 000001 145%: MOV #1,R3 sSPACE ONE RECORD PARAMETER 
11358 065076 004737 010556 JSR PC, SPACE sCALL SPACE ROUTINE 
11359 065102 103413 Bcs 1508 36R NO PROBLEM WITH SPACE COMMAND 
11360 065104 016501 000002 MOV TSSRCRS),R1 sGET TSSR 
11361 065110 012702 000200 MOV @SSR,R2 sSET UP EXPECTED TSSR 
11362 065114 010004 MOV RO,R4 sPACKET ADORESS SET UP 
11363 065116 005237 002212 INC FATFLG sBUMP COUNT 
5 ERRHRD ERRNO, T26SC.EXPREC sPOSITION (SPACE RECORDS) FAILED 
5 104456 TRAP CSERHRO 
065124 001246 .WORD 678 
065126 073577 ‘wORD T26SC 
065130 015564 “WORD EXPREC 
11368 065132 150%:  CKLOOP 
065132 104406 TRAP = CSCLP1 
11369 065134 013703 073162 MOV T26RSZ.R3 sRECORD SIZE 
11370 065140 013737 003114 073132 MoV FREE, T26RB sSTARTING READ BUFFER ADORESS 
13378 3 SHSHSSSSSSSSSSSSSSSHSSSSSSSSSSSSSSHSESSHHSSSESESSSSSESESEESESSEEEEEESE 
2 
11574 sREREAD DATA, ACK,CVC=1,SWB COMMAND 
3 
11376 3 RBASTHEKAAEHREAHAHOAHEHAKEHLABAESAAAKAHEAASCHASEAAEAKEAAADAKKRASHACKEDRES = “SERB 
11378 065146 012737 151401 073130 MOV #151401, T26PK3 sREREAD DATA, ACK,CVC*1,SWB COMMAND 
11379 065154 012704 073130 165%: MOV @T26PK3,R4 ;SET UP R4 WITH PACKET ADORESS 
11380 065160 010337 073136 MOV R3, 12682 3SET UP RECORD SIZE IN PACKET 
11381 065164 010465 000000 MOV R4.TSOBCRS) sISSUE COMMAND 
11382 065170 004737 016340 JSR sWAIT FOR SSR TO SET 
11383 065174 016501 000002 HOV TSSRCRS),R1 :GET TSSR CONTENTS 
11384 065200 012702 000200 MOV @SSR.R2 3SET UP EXPECTED 
11385 065204 020102 CMP R1.R2 3ARE THEY 
1386 06 001406 BEQ 1708 :6R, IF 
11387 065210 005237 002212 INC FATFLG ;BUMP COUNT 
11391 065214 ERRHRD ERRNO, T26WDC,PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
065214 104456 TRAP CSERHRD 
065216 001247 .WORD 679 
065220 075020 “WORD T26MDC 
065222 012136 "WORD PKTSSR 
11392 065224 170%:  CKLOOP ;LOOP IF SELECTED 
065224 104406 TRAP  CSCLP1 
11393 065226 013702 003114 MOV FREE ,R2 sCURRENT BUFFER ADORESS TO R2 
11394 065232 010304 MOV R3,R4 sCURRENT RECORD SIZE 
11395 065234 162704 000400 SUB 0256. .R4 sFIRST LOCATION IN BUFFER 
11396 065240 060204 173%: ADD R2.R4 3SET UP POINTER 
11397 065242 021403 CHP (R4),R3 sCHECK DATA READ (R3=DATA ALSO) 
11398 065244 001410 6EQ 180% 36R, IF ALL IS WELL 
11399 065246 011401 HOV (R4),R1 3RECD DATA 
11400 065250 010302 MOV R3,R2 sEXPECTED DATA 
11401 065252 005237 002212 INC FATFLG sBUMP C 
11405 065256 ERRHRD ERRNO, T260TA,EXPREC sDATA READ NOT = WRITTEN 
065256 104456 TRAP § CSERHROD 
065260 001250 .WORD 680 
065262 074242 “WORD T26DTA 
5264 015564 “WORD  EXPREC 


06 
11406 065266 160%: CKLOOP sLOOP IF SELECTED 
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j 
i 
' 
065266 104406 TRAP CSCLPi 
11407 065270 aosi28 TST CR4)< s8UKP TO NEXT LOCATION 
11406 065272 160204 SuB R2,R4 }CORRECT RECORDS SIZE VALUE 
065274 CMP R4,R3 sEND OF REC YET 
11410 065276 901360 BME 1738 ._IF NOT AT END OF RECORD 
411 06 723 TST (R3)+ sBUMP RECORD SIZE 
se 065302 010337 073162 MOV R3. T26RSZ sSTORE RECORD SIZE 
11413 065306 022703 000410 CMP 0264. .R — A RECORD YET 
11414 065312 001267 BNE 145% MORE RECORDS TO WRITE 
11415 065314 190%:  CKLOOP 1e00e 5 IF SELECTED 
065314 104406 TRAP CSCLP1 
11416 065316 ENDSUB 3>>>>>>>>>2>>> END SUBTEST >>>>>>>>>>>> 
065316 110112: 
065316 104403 TRAP Csesus 
11417 065320 023727 002212 000017 CMP FATFLG,@15. 3IS ERROR COUNT AT 25 
11418 065326 103402 BLO 999% 18R, IF LESS THAN 25 
11419 065330 004737 017272 JSR PC ,.CKDROP sTRY TO OROP THE UNIT 
11420 065334 999%: 
11421 
11422 3° 
11423 3 
Het —— 6, SUBTEST 9 
11426 VERIFIES THAT THE REREAD NE y ome WITH OPP=1 
11427 sCREAD FORWARD, SPACE REVERSE) AND SWB=0 TES 
11428 3PR APE IS FIRST REWOUND AND THEN WRITTEN 
11429 3WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
1430 sDATA Pgh PR FIRST FOUR BYTES OF EACH RECORD 
11431 sCONTAIN ITS RECORD NUMBER CINDICATING POSITION ON 
11432 sTAPE). THE TAPE IS THEN REWOUND FOR EACH 
rt rTEST RECORD, THE FOLLOWING SEQUENCE 1s EXECUTED. 
11435 i. THE REREAD NEXT COMMAND WITH OPP=1 IS ISSUED 
11435 $ AND THE RESULTS CHECKED 
: 
14 se. A READ FORWARD COMMAND IS THEN ISSUED AND THE 
11439 3 DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
1440 3 POSITIONED PROPERLY AFTER THE REREAD NEXT 
11441 3 COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
11442 3 POSITIONED AT THE START OF THE TEST RECORD). THE 
11443 3 READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
$3433 5 PROPERLY AT THE START OF THE NEXT TEST RECORD. 
3 
11446 sTHE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET 
11447 :T0 THE LENGTH OF THE EXPECTED RECORD, SO NO 
31688 sEXCEPTIONAL CONDITIONS SHOULD OCCUR. 
3 
11450 8 
11451 8 
11452 : 
11453 s- 
11454 
11455 per iiey BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
6.9: 
065334 104402 TRAP CsBSuUB8 
11456 065336 004737 075720 JSR PC, T26REST 3SET COMMAND PACKET 
11457 065342 005037 073156 CLR T26CNT sCLEAR TAPE RECORD COUNTER 





ee 
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11458 065346 
11459 065352 


: 
gece 


004737 
004737 


124 
C13737 
012704 


076012 
076054 


016064 
002212 


002172 
073000 


010752 
002212 


011104 
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073020 


JSR PC. T26RT2 sSET UP OTHER COMMAND PACKET 
JSR PC. T26RTS sSET UP OTHER COMMAND PACKET 


[OMSORSSSESSOSESESEEDEREEEEEERELESEEEEEESESEESEEEEEEEEEEEEEEEEEEESS 
SISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
; SOS AESSEESSESEEHESESEESEESEEEEEEEEEESESRESEEEESESESEEEEEEEEEEEEOES 


JSR PC, SOFINIT s00 INITIALIZE ON CONTROLLER 
Bcs 20% 18R IF INIT WAS OK 
INC FATFLG ’ OUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFINSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
.WORD 661 
[WORD  SFIERR 
‘WORD SFIMSG 
20%: MOV UNITN, T260SW sSET UP UNIT NUMBER 
MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


PEKOASESLBESSAEHERASESORHEREHESSEMRAAKGSEMASACLAGASLSHASASACESASSSSCHK 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
: ShbSeseeessesssorsessesooasssssonsessssoosesssssoosesssoosssseeses 


JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

ecs 182, IF COMMAND ISSUED OK 

INC FATFLG . jeu 

MOV Ri sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
- WORD 
- WORD 

268: CKLOOP sLOOP IF SELECTED —_ 

TRAP 


bSSSSOSHRLASSERESSSEKESHASHESEAEKEREALOSCSEALAGHSACEDSALARASLSARAGHLA 
TISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 

; SESLObBASSSASLARLEGASSESLABASES SEGSSEEBEESEKLALSESISESBAAESHRLASCHSSALSESSE 
PC, REWIND 


USR 

now pe: <M ieee 

ray Rona tDACKET ADDRESS. SET UP 
ERRHRD 2 Nes tREUINS MOT ACCEPTED i 


CecLP1 
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11511 065476 
065476 


11562 065654 





104406 


013701 
010102 
02 


04406 
012703 
013737 


012737 
012704 


010337 
013777 


000400 
003114 


140005 
073130 


073136 
073156 
000001 
000000 
016340 
000002 
000200 


002212 


000414 


073156 
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073132 


073130 


115322 
073156 


308: 


CKLOOP 


sLOOP IF SELECTED 


s CRPOAAOSEEEREEERESEESEESEEEEDESEEEDESEEESSEEERESEEESEESEEEESEEEEEES 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


‘ 
PRARAAAAAERSE RH RLARSRHAMATHRLAREEERARRABSHARARHRREKKSEREREAEKEAHMARAHS 


40%: 


MOV 


CKLOOP 


MOV 
MOV 


T26BER+6, RI 
@81T1,R2 
R1,R2 


FATFLG 
ERRNO, T26B0T , EXPREC 


0256. ,R3 
FREE, T26RB 


TRAP CSCLP1 
or UP XSTO 
sSET UP _ EXPECTED 
sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
sBR, I (OK) 
sBUMP COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 684 
-WORD T26B0T 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLPi 


sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


J CRRORAEEEEESEEEESEEESESEEARESEEEDEREEESEEEEDEEEESSEEEEEEEEEDDEEEEEE 
’ 
sWRITE DATA,CVC=1,ACK COMMAND 


5 
PRRAARHAESHEHAKRERAEEKERAAEAAAARAARARERAREEAHARKAKSEERAARA EMAAR EMAERAEEH 


65$: 


75%: 


120%; 


€140005, T26PK3 

@T26PK3.R4 

R3,126SZ 
T26CNT, SFREE 
@1, T26CNT 

Ra. Ts : TSDBCRS) 
TSSRCR5), R1 

@SSR,.R2 

R1,R2 

753 


FATFLG 
ERRNO, WRTERR ,PKTSSR 


CR3)+ 
0268. ,R3 
120% 

65% 
T26CNT 


sWRITE DATA,CVC#=1,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


sSET UP a BI IN PACKET 


sMOVE TAPE REC NUMBER TO BUFFER 

sNUMBER READY FOR NEXT RECORD 

iISS COMMAND 

;WAIT FOR SSR T 

3GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 

BR, I x, 

3; BUMP 

:TSSR SRCORRECT AFTER a DATA ns 
WORD 685 
- WORD WRTERR 
~ WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CSCLP1 


sBUMP THE RECORD SIZE 
sMAXIMUM SIZE YET 
BR, IF AT END OF WRITE SEQUENCE 


;WRITE MORE RECORDS 
sSET RECORD COUNTER BACK TO ZERO 


SEQ 0247 


| 


11 066000 
11614 066002 
11618 066006 


013701 
010102 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 





MACRO YOS.02 Monday 16-Sep-85 15:41 Page 77-144 


073162 


SEQ 0248 


[PRREAEEAEEAEESEEEESEEEEAERESEESEREOEEESEESSEEESEESEEESEESSEOESEEES 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


8 
SSSAAAASSSHASSSAASSESSAAESEEASESEAESESEEESSESESEEASESSESEEESESESESEESS 


JSR PC REWIND ;CALL TAPE REWIND COMMAND 
BCs 1308 ;6R, IF NO PROBLEM 
MOV TSSRCRS),R1 :GET TSSR 
MOV RO,R4 sPACKET ADDRESS SET UP 
INC FATFLG 8 
ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 
TRAP § CSERHRD 
.WORD 686 
"WORD T26RWN 
"WORD PKTSSR 
130%: | CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 
SSSHHSSASASHSSSHSSASAEHSSSASHESSESSESESESSHSASSSSSESESSESHESEESESESE 
£ 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
3 
PERERA AHARHEAEARBEEAREKEHEASAGRAKHARSARELEABARSSESEHARARKS SSE LAKHAABLES 
MOV T26BFR+6,R1 ;PICK UP XSTO 
MOV R1,R2 ;SET UP EXPECTED 
BIS @8IT1,R2 sSEr BOT BIT IN EXPECTED 
CMP R1,R2 REC'D 
BEQ 1358 iBR, IF EQUAL COK) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26B0T, EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP  CSERHRD 
-WORD 687 
“WORD T26B0T 
"WORD €EXPREC 
135%:  CKLOOP ;LOOP IF SELECTED 
TRAP = C$CLP1 
MOV 0256. , T26RSZ sSTARTING RECORD SIZE 
BR 1408 ;SKIP OVER THE SAPCE THIS TIME 
GARR Cagle Oe rE ES 
HISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
;81T 15 SETS DIRECTION - O=FORWARD  1*REVERSE 
c 
Fs SSSHHSSSSHASSSSSSSSSSSSSSSSASHASSSSSEHSSHSSESSSHSSSESESESEESESESEESEE 
132%: MOV #000001 ,.R3 :SET UP SPACE COMMAND (1 FORWARD) 
JSR PC, SPACE ;CALL SPACE ROUTINE 
Bcs 1408 36R NO TROUBL 
MOV TSSR(RS),.R1 iGET TSSR 
MOV @SSR.R2 SET UP EXPECTED TSSR 
MOV RO,R4 ;PACKET ADORESS SET UP 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26SC,.PKTSSR iSPACE (FORWARD) FAILED 
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| Seeoie 
| perety | 
| 


11619 oeenle 


104456 
001260 
073577 
012136 


104406 
013703 
013737 


012737 
.*) 


073162 
003114 


161401 
30 


114776 
073156 


002212 


000001 


073162 
0v0412 


065756 


002212 
017272 
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073132 


073130 


073156 


000017 


TRAP  CSERHRD 
.WORD 688 
"WORD T26SC 
“WORD PKTSSR 
140%: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
MOV T26RSZ,R3 sRECORD SIZE 
150%: MOV FREE, T26RB sSTARTING READ BUFFER ADORESS 
t SBHSSHSAKAHASSSASSSSSAAAASSSSSSSSSSSSSSSHEHSSSSSASSSSSESEESESEKESESSE 
3 
sREREAD DATA,CVC*1,ACK, OPP COMMAND 
i 
PRPAAASHEAEHEAARAMAEHESAAAHSEHHORRAKEKAHKAAHREAEKAEHHKEHDERSAAEHEEASESEESE 
MOV 0161401, T26PK3 sREREAD DATA CVC*1, ACK, OPP COMMAND 
165%: MOV OT26PK3,R4 ;SET UP R4 WITH PACKET ADORESS 
MOV R3, 12652 sSET UP RECORD” SIZE IN PACKET 
MOV R4.TSOBCRS) sISSUE COMMAND 
JSR F ;WAIT FOR SSR TO SET 
MOV TSSR(RS),R1 ;GET TSSR CONTENT 
MOV @SSR,R2 ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY E 
BEQ 1708 :6R, I 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26RRF .PKTSSR ;TSSR INCORRECT AFTER REREAD DATA 
TRAP CSERHRD 
.WORD 689 
"WORD T26RRF 
[WORD PKTSSR 
170%: CKLOOP ;LOOP IF SELECTED 
TRAP cecuPa 
MOV OF REE FIRST WORD FROM READ BUFFE 
MOV POeeNT 2 SET UP EXPECTED 
CMP R1,R2 31S TAPE POSITION CORRECT 
BEQ 190% KEEP GOING POSITION OK 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26WNG, EXPREC TAPE POSITION INCORRECT 
TRAP CSERHRO 
.WORD 690 
“WORD T26WNG 
“WORD EXPREC 
190%:  CKLOOP 
TRAP = CSCLP1 
ADD #1, T26CNT :BUMP TAPE RECORD COUNTER 
TST (R3)- ;NEXT RECORD SIZE 
MOV R3, T26RSZ ;STORE RECORD SIZE 
CMP 0266. .R3 sAT MAX SIZE YET 
BEQ 2008 :BR, IF AT END OF THE SUBTEST 
: JMP 132% sKEEP GOING MORE RECORDS 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
110113: 
TRAP CSESUB 
CMP FATFLG,@15. :IS ERROR COUNT AT 25 
6LO $ :8R, IF LESS THAN 25 
JSR PC, CKDROP sTRY TO OROP THE UNIT 


SEQ 0249 





| 


| TSV7 - HARDWARE TESTS 1-8 MACRO YOS.02 Monday 16-Sep-85 13:41 Page 77-146 
TEST 6: REREADS 


SEQ 0250 


11665 066210 999%: | 
11666 | 
11667 s¢ ' 
11668 3 
11665 sTEST 6, SUBTEST 10 
a 
11671 sVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1 
11672 sAND SWB=1 OPERATES PROPERLY. THE TEST oe Is 
11673 sTHE SAME THAT T IS USED IN SUBTEST 3, BUT I 
11674 iVERIF IED THAT DATA STORED BY THE COMMAND CONTAINS 
11675 sSWAPPED BYTES. 
11676 FY 
11677 3 
11678 3 
11679 3 
11680 - 
11681 
11682 066210 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
066210 T6.10: 
066210 104402 TRAP Ccs6SuB 
11683 066212 004737 075720 JSR PC, T26REST sSET COMMAND PACKET 
11684 066216 005037 073156 CLR T26CNT ;CLEAR TAPE RECORD COUNTER 
11685 066222 004737 076012 JSR PC, T26RT2] ;SET UP OTHER COMMAND PACKET 
+1699 066226 004737 076054 JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 
rte FPRAAAAEASESEEEAEESSEEEEESEREREASEREREESESEEEASESESEEEEEEEDESAESEOEESD 
1 3 
Heres sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
é 
t1688 { SEARSAREREREEEASESEEEEEEESEEASEEEREESESERSEEEEEEEEESEESEDEEEEEEEEED 
1 
11694 066232 004737 016064 JSR PC, SOF INIT 3:00 gh Ee ON CONTROLLER 
11695 066236 103407 BCS 20% 3B8R IF INIT WAS OK 
11696 066240 005237 002212 INC FATFLG sBUMP COUNT 
11700 066244 010001 MOV RO,R1 i CONTENTS OF TSSR REGISTER 
11701 066246 ERROF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
066246 104455 TRAP CSEROF 
066250 001263 WORD 691 
066252 003650 .- WORD SFIERR 
066254 012124 .- WORD SFIMSG 
ets 066256 013737 002172 073020 20%: MOV UNITN, T260SW :SET UP UNIT NUMBER 
11795 066264 012704 073000 MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
33708 SSHASHAKEEESEEEESEEESEESESEEEESEEEEEEEESEEEEEEREEEEEESEEEEEEDEDEDED 
3 
$1708 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3 
+3730 §9O6O606060046000666600006060600064046060606606060600060006000606000000808 
11711 
11712 066270 004737 010752 JSR PC, .WRTICHR sISSVE WRITE CHARACTERISTICS 
11713 066274 103407 bcs 26% :68R, IF COMMAND ISSUED OK 
11714 066276 005237 002212 INC FATFLG ;BUMP COUNT 
11718 066302 010001 MOV RO,.R1 sSAVE CONTENTS OF TSSR 
11719 0663504 ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
066304 104456 TRAP CSERHRD 


066306 001264 -WORD 692 





| 
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eeesi2 Gizize 


11720 06631 
06631 3 104406 


013701 
010102 


104406 
012703 
013737 


012737 
012704 


11768 34 
11769 066434 


010337 


011104 
000002 
000200 


002212 


000400 
003114 


140005 
073130 


073136 
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073132 


073130 


26%: CKLOOP sLOOP IF SELECTED 


TRAP 
J PSAAAAAASASSSASASSSASASSEASAAEEESEEESSSESESSSESEEESASESEEESEEEESESE 


3 
sISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
WITTTTTTTTTTTTTTTTTITITITITITTTITITITTT TTT TTT TTT TTT tt ee 


JSR IND ;CALL TAPE REWIND COMMAND 

MOV TSenensy. R1 ;GET TSSR 

MOV @SSR,R2 iSET up EXPECTED TSSR 

BCS BR NO PROBLEM 

MOV BReKeT ADORESS SET UP 

INC FATFLG BURP COUN 

ERRHRD ERRNO, T26RWN,PKTSSR REWIND NOT ACCEPTED aos 
. WORD 
“WORD 
“WORD 

308: CKLOOP ;LOOP IF SELECTED 

TRAP 


$ PRRRAEASEEERESEEEEESEREEESEEEESEEEESEEEEEEEEEESEEEEEEEEEEEEEDDEEEE 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
PSOE KERERESEMRARALSAAEAREAERAAAAEKEKRALHREARLARAARAARKHAKASRAREGRARAAS 


MOV T26BFR+6,R1 sPICK UP XSTO 

MOV : sSET UP EXPECTED 

BIS #6IT1,R2 sSET BOT BIT IN EXPECTED 

CMP R1,R2 sD0ES EXP = REC'D 

BEQ 40% 3BR, IF EQUAL (OK) 

INC FATFLG 38 Cc 

ERRHRD ERRNO, T26B0T ,EXPREC sTAPE NOT AT BOT AFTER ——- 
- WORD 
- WORD 
. WORD 

40$: CKLOOP sLOOP IF SELECTED — 
MOV #256. ,R3 sRECORD SIZE 
MOV FREE, T26R8 sSTARTING WRITE BUFFER ADDRESS 


[PRRASERESEESERESEEESEESEEESEESEEESEESEREDEESEEEEEEDERESEEESEEESEES 
: 
sWRITE DATA,CVC#1,ACK COMMAND 


t] 
GSS kAtkk GH te AR kG eHsaRee eH Oe GG RRAAKEeRRAALAHKHAESSEAHOCAAEHALAOREAS 


HOV —«-@140005, T26PK3 ;WRITE DATA,CVC#1.ACK COMMAND 
ese, OV. «= T26PKS.RA ‘SET UP R4 WITH PACKET ADDRESS 
* mov saRB, T2682 :SET UP RECORD SIZE IN PACKET 


SEQ 0251 


WRT | 
SFI | 
CSCLP1 


CSERHRO 
694 


T2680T 
EXPREC 


CsCLPi 
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| 
SEQ 0252 — 
TEST 6: REREADS | 
11770 066440 013777 073156 114446 MOV gg“ OF REE sMOVE TAPE RECORD NUMBER TO BUFFER | 
11771 066446 062737 000001 073156 ADD 26CNT sNUMBER READY FOR NEXT RECORD 
11772 066454 010465 000000 MOV Ra: TSOBCRS) sISSUE COMMAND 
11773 066460 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
11774 066464 016501 000002 MOV TSSRCRS), R1 sGET TSSR CONTENTS 
11775 066470 012702 000200 MOV @SSR ,R2 3SET UP EXPECTED 
11776 066474 620102 CMP R1,R2 sARE THEY 
11777 066476 001406 BEQ 75% 3BR, 
11778 066500 005237 002212 INC FATFLG 38 OUNT 
11782 066504 ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
504 104456 TRAP cs 
066506 001267 -WORD 695 
066510 005111 -WORD WRTERR 
066512 0121356 .WORD PKTSSR 
117€3 066514 75%: CKLOOP 3;LOOP IF SELECTED 
066514 104406 TRAP CSCLPi 
11784 066516 0057235 TST CR3)>+ sBUMP THE RECORD SIZE 
11785 066520 022703 000414 CMP 268. ,R3 sMAXIMUM SIZE YET 
11786 066524 C01401 BEQ 120% 368R, IF AT END OF WRITE SEQUENCE 
11787 066526 000742 BR 65% ;WRITE MORE RECORDS 
11788 0665350 1208: 
1178 066530 005037 073156 CLR T26CNT 3SET RECORD COUNTER BACK TO ZERO 
12791 $ PARSE EEEEEEEES OO0606006660400000000466660660606000000000086000000888 
11 3 
+3735 sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
3 
13799 §OO00666000060000666600066606666600666600666060004606000660000600006008 
1 
11797 066534 004737 011104 JSR PC REWIND sCALL TAPE REWIND COMMAND 
11798 066540 103411 BcS 130% 38R, IF NO PROBLEM 
11799 066542 016501 000002 MOV TSSRCRS),R1 sGET TS 
11800 066546 010004 MOV RO,R4 iPACKET ADDRESS SET UP 
11801 066550 005237 002212 INC FATFLG 38 OUN 
11805 066554 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
066554 104456 TRAP CSERHRD 
066556 001270 -WORD 696 
066560 074464 -WORD T26RWN 
066562 012136 -WORD PKTSSR 
11806 066564 130%: CKLOOP sLOOP IF SELECTED 
33807 066564 104406 TRAP CSsCLP1 
11808 Pettitt itiiititii titi ttirittitititiiti itt ttt itttiiitiiittt ttt tit 
1 3 
rte sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
3 
11816 5 O0066000006006006060006600064666000666000660600060000600600000600004008 
11814 066566 013701 073030 MOV T26BFR+6,R1 serek UP XSTO 
118615 066572 010102 MOV R1,R2 T UP EXPECTED 
118616 066574 052702 000002 BIS @BIT1,.R2 iSET BOT IT IN EXPECTED 
11817 066600 020102 CMP R1,R2 ;D0ES EXP = REC'D 
118618 066602 001406 BEQ 135% iBR . IF EQUAL (OK) 
11819 066604 005237 002212 INC FATFLG 38 OUN 
118623 066610 ERRHRD ERRNO, T26B0T,EXPREC ; TAPE NOT AT BOT AFTER REWIND 


10 104456 TRAP CSERHRD 
12 001271 -WORD 697 





' 


11855 
11656 066706 


11873 066776 


074175 
015: 


104406 
012737 
000420 


104406 
013703 
013737 
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000400 


000001 
010556 


000002 
000200 


002212 


073162 
003114 


161401 
30 


114122 
073156 
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073162 


073132 


073130 


SEQ 0253 
; T2680T 
1359 CKLOOP LOOP IF SELECTED ~~ 
: : TRAP —CSCLP1 
MOV 0256. , T26RSZ sSTART RECORD SIZE 


BR 140% sSKIP OVER SPACE 
{PRREAEEEEEEESEEEEEEEEEESEESERESEEEEEESSEESERESEESSEESREDESESEEEEEE 


VISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD 1*REVERSE 


a 
PERPAEAAREAKHEARAARERAERASERAEEEAHEAEREAAAAKEAARRAEKAERERHAHSESKSAESH HAH 


136%: MOV #000001,R3 ;SET UP SPACE COMMAND (1 FORWARD) 
JSR PC, SPACE CALL SPACE ROUTINE 
BCS 1408 38R, IF NO TROUBL 
MOV TSSRCRS),R1 ’ 
MOV @SSR,.R2 ;SET UP EXPECTED TSSR 
MOV RO,R4 ;PACKET ADORESS SET UP 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26SC.PKTSSR sSPACE (FORWARD) FAILED 
TRAP  §CSERHRD 
.WORD 698 
“WORD T26SC 
“WORD PKTSSR 
140%:  CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 
MOV T26RSZ,R3 sRECORD SIZE 
150%: MOV FREE, T26RB 3STARTING READ BUFFER ADDRESS 
PERERA GHEREESKAKASSAHKKAEBDRAUHAATASRARAGRAKKERGSARESERARSARARRKREER 
4s 
;REREAD DATA,CVC=1,ACK, OPP COMMAND 
3 
SRREMEGAKAERAAAAEKEREEAEHREHASHAARESARHRAEKRACLSAHEERAAAKSERERAAKHKAHAHAKE 
MOV #161401, T26PK3 ;REREAD DATA,CVC=1,ACK, OPP COMMAND 
165%: MOV OT26PK3.R4 ;SET UP R4 WITH PACKET ADDRESS 
MOV R3, 1265 3SET UP RECORD SIZE IN PACKET 
MOV Ra, TSDBCRS) c 
JSR PC, WAITF ;WAIT FOR SSR TO SET 
MOV TSSR(RS),R1 ;GET TSSR CONTENT 
MOV @SSR.R2 3SET UP EXPECTED 
CMP R1.R2 3ARE THEY & 
BEQ 1708 BR. OK 
INC FATFLG T 
ERRHRD ERRNO, T26RRF ,PKTSSR iTSSR INCORRECT AFTER REREAD DATA 
CSERHRO 
: 699 
: T26RRF 
WORD PKTSSR 
170%:  CKLOOP ;LOOP IF SELECTED 
TRAP _ CSCLP1 
MOV OFREE,R1 FIRST WORD FROM READ BUFFER 
MOV T26CNT .R2 sSET UP EXP 


XPECTED 
:IS TAPE POSITION CORRECT 


CMP R1,R2 
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i 
SEQ 0254 | 
TEST 6: REREADS 
11874 067000 001406 BEQ 190% sKEEP GOING POSITION OK | 
11875 067002 005237 002212 INC FATFLG sBUMP COUN 
11879 067006 ERRHRD ERRNO, T26WNG,EXPREC sTAPE POSITION INCORRECT 
067006 104456 TRAP CSERHRD 
067910 001274 - WORD 700 
067012 073166 . WORD T26WNG 
067014 015564 - WORD EXPREC 
11880 067016 1908: CKLOOP 
067016 104406 TRAP CSCLP1 
118681 067020 062737 000001 073156 AOD #1, T26CNT sBUMP TAPE RECORD COUNTER 
1186862 067026 005723 TST RS e sNEXT RECORD SIZE 
118863 067030 010337 073162 ; MOV R3,T26RSZ sSTORE RECORD SIZE 
118664 067034 022703 000412 CMP #266. ,R3 3sAT MAX SIZE YET 
11685 067040 001402 BEQ 220% 36R, IF AT END OF THE SUBTEST 
11886 067042 000137 066632 JMP 136% iKEEP GOING MORE RECORDS 
11887 067046 220%: 
11688 067046 ENDSUB 3>>>>>>>2>>>>> END SUBTEST >>>>>>>>>>>> 
067046 L10114: 
067046 104403 TRAP CsESuB 
11889 067050 023727 002212 000017 CMP FATFLG, #15. :IS ERROR COUNT AT 25 
11890 067056 103402 BLO 999% ;8R, IF LESS THAN 25 
118691 067060 004737 017272 JSR PC ,CKDROP ; TRY TO DROP THE UNIT 
11892 067064 999%: 
11893 
118694 3+ 
11695 ’ 
Hts] _— 6, SUBTEST 11 
11896 i VERIFIES THAT A REREAD NEXT COMMAND READING A 
11699 sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
11900 3TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
11901 3LONG CRLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 
11902 sSTATES OF OPP C(O AND 1). 
11903 3 
11904 Hy 
11905 3 
11906 s- 
11907 
11908 
11909 067064 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
067064 T6.11: 
067064 104402 TRAP Cs6SuUB 
11910 067066 004737 075720 JSR PC, T26REST sSET COMMAND PACKET 
11911 067072 004737 076012 JSR PC, T26RT2] 3SET UP OTHER COMMAND PACKET 
Het 067076 004737 076054 JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
tisis §9000000006060606606060066060600066606060600660606606606060666060080006006008 
$ 
11936 sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
6 
tists § O09040006666006606000600606660060606606060600006000006060060000000000086 
11920 067102 004737 016064 JSR PC ,.SOFINIT 3:00 INITIALIZE ON CONTROLLER 
11921 067106 103407 Bcs 20% 36R IF INIT WAS OK 
11922 067110 005237 002212 INC FATFLG UMP 


78 COUNT 
11926 067114 010001 sCONTENTS OF TSSR sere. 


MOV RO,R1 
11927 067116 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT 
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SEQ 0255 
TEST 6: REREADS 

067116 104455 TRAP CsEROF 
067120 001275 «WORD 701 
067122 003650 -WORD SFIERR 
067124 012124 «WORD SFIMSG 

11938 067126 013737 002172 073020 20%: MOV UNITN, T260SW sSET UP UNIT NUMBER 

tet ty 067134 012704 073000 MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

11933 [PRESSES RESESEESEESEESEEEESESEESEERESEEDSSSEEESEEEEESEDSEEEESEEEEEE 

; 

11333 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

113938 : SRSERESEEESEEASEOOSESEEESEAESSEEEEEESEESEEDERESEEEDERESEEEEEESEEES 

11938 067140 004737 010752 JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 

11939 067144 103407 BCS 26% s8R, IF COMMAND ISSUED OK 

11940 067146 005237 002212 INC FATFLG 3 OUN 

11944 067152 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

11945 067154 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
067154 104456 TRAP CSERHRD 
067156 001276 -WORD 702 
067160 005054 -WORD WRTMSG 
067162 012124 SFIMSG 

11946 067164 26%: CKLOOP sLOOP IF SELECTED 

11967 067164 104406 TRAP CsCLP1 

1388 {PROSEESEEEESEEEEEEEEESEESEERESEERESEDEEEEEDEEEEEEEREDEEDEDEEDEEEES 

ett ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

11938 ; SECRAOEEEEEEESEEEEEESEEEEEEEESEEEEEEEEEEEEEEEEEEEEEEEEEDEEEDEEEESE 

11954 067166 004737 011104 JSR PC ,REWIND sCALL_TAPE REWIND COMMAND 

11955 067172 016501 000002 MOV TSSRCRS),R1 sGET TS 

11956 067176 012702 000200 MOV @SSR .R2 axe’ UP EXPECTED TSSR 

11957 067202 103407 BcS 30% NO PROBL 

11958 067204 010004 MOV RO,R4 PACKET ADDRESS SET UP 

11959 067206 005237 002212 INC FATFLG sBUMP COUNT 

11963 067212 ERRHRD ERRNO, T26RWN,PKTSSR ; REWIND NOT ACCEPTED 
067212 1 TRAP CSERHRD 
067214 001277 -WORD 703 
067216 074464 -WORD T26RWN 
067220 012136 -WORD PKTSSR 

11964 067222 308: CKLOOP sLOOP IF SELECTED 

11965 067222 104406 TRAP CsCLPi 

11968 j PRSOOSEESESESEEESASSEEESEESEESESESSEESEESEEDEEEDEEEDEEEDEEEEEEEEES 

+3988 : ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

13970 ; SEOERESEEESOESESESERESEEESEESEESEEESEEEEEEESEEESEEEEEEDOEEEDESESESE 

11972 067224 013701 073030 MoV T26BFR+6,R1 sPICK UP XSTO 

11973 067230 010102 MOV sSET UP EXPECTED 

11974 067232 052702 000002 BIS e8iT1,R2 iSET BOT BIT IN EXPECTED 

11975 067236 020102 CMP R1,R2 XP _= REC'D 


. sD0ES E 
11976 067240 001406 BEQ 40% :BR, IF EQUAL (OK) 





TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 
11977 067242 005237 
11981 067246 
067 104456 


001300 
074175 
015564 


002212 


001000 


012703 
013737 003114 


012737 140005 
C1i2704 073130 
073136 
000000 


016340 
000002 


010337 
01046 


002212 
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073132 


073130 


INC FATFLG 
ERRHRD ERRNO, T26B0T ,EXPREC 


40%: CKLOOP 
MOV 0512. .R3 
MOV FREE, T26R8 


sBUMP COUNT 
sTAPE NOT AT BOT AFTER —- 


PRARCRRATKARAEHAEERHAEDERSOEKAHAAEAAEAEEREAARSaSAAAGSEESHSEARESSAHRSEHA 


;WRITE DATA,CVC=1,ACK COMMAND 


d 
EKEEAAAREAARKASHEEREHAAALAATHAHHAAGKESHKAHREKERSEAAEHKEHAEHALASHESSALH 


MOV #140005, T26PK3 
MOV @T26PK3.R4 
65%: 
MOV R3,126SZ 
MOV R4.TSOBCRS) 
JSR PC; WAITF 
MOV TSSR(RS) RI 
MOV @SSR,.R2 
CMP R1,R2 
BEQ 753 
INC FATFLG 
ERRHRD ERRNO, WRTERR,PKTSSR 
75%:  CKLOOP 


LES BASHA keEA ASE SeS Rese RAkAke kA SAGE RAEASROGKAKRHSHASEARHRAAKSAL LEAR 


; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


i 
(SEEKER LHEERAKRHEAMAAGRAHKSSHARGAERKAKKSHEARSAAKHASAGHAHREALHERESSHOARHEAH 


JSR PC,REWIND 

MOV TSSRC(RS),R1 

MOV @SSR.R2 

ecs 1308 

MOV RO,R4 

INC FATFLG 

ERRHRD ERRNO, T26RWN,PKTSSR 
130%: CKLOOP 


CSERHRD 
.WORD 704 
“WORD T26B80T 
“WORD EXPREC 

;LOOP IF SELECTED 
TRAP = CSCLP1 

sRECORD SIZE 

sSTARTING WRITE BUFFER ADORESS 

sWRITE DATA,CVC#1,ACK COMMAND 

;SET UP R4 WITH PACKET ADORESS 

sSET UP RECORD SIZE IN PACKET 

sISSUE COMMAND 

;WAIT FOR SSR TO SET 

:GET TSSR CONTENTS 

3SET UP EXPECTED 

;ARE THEY EQUAL 

36R, OK 

;BUMP COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
.WORD 705 
“WORD WRTERR 
“WORD PKTSSR 

;LOOP IF SELECTED 
TRAP  CSCLP1 

;CALL TAPE REWIND COMMAND 

;GET TSSR 

3SET UP EXPECTED TSSR 

38R, IF NO PROBLEM 

sPACKET ADDRESS SET UP 

sBUMP COUNT 

;REWIND NOT ACCEPTED 
TRAP § C#ERHROD 
.WORD 706 
"WORD T26RWN 
"WORD PKTSSR 

;LOOP IF SELECTED 
TRAP —- CSCLP1 


PRROASESRELEERHLEME SHEE SAGO HEREKS SAHRA BRASMADGHSSEHESLEAESEHSAASSERHEBELG 


SEQ 0256 
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SEQ 0257 
TEST 6: REREADS 
12028 ; 
12029 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
t } 
12033 3 BRERAEAKAAHRAEBRERABEEAKLESAEEKEHRESEAREHHLASRHEHHAKOADSAEHEARKEHAAESERSEAHESES ; 
12033 067410 013701 073030 MOV T26BFR+6,R1 sPICK UP XSTO 
12034 067414 010102 MOV 1,R2 sSET UP EXPECTED 
1203S 067416 052702 000002 BIS @6iT1,R2 1SET BOT BIT IN EXPECTED 
067 020102 CMP R1,R2 ;DOES EXP = REC'D 
12037 067424 001406 8EQ 1408 i8R, IF EQUAL COK) 
12038 067426 005237 002212 INC FATFLG sBUMP COUNT 
12042 067432 ERRHRD ERRNO, T2680T,EXPREC ;TAPE NOT AT GOT AFTER REWIND 
067432 1044 TRAP § CSERHROD 
067434 001 : 707 
067436 074175 ? T2680T 
067 015 : EXPREC 
12043 067442 140%:  CKLOOP ;LOOP IF SELECTED 
067 1 TR CecLP1 
12044 067444 (05303 DEC R3 sSET RECORD SIZE TO 511. 
12045 067446 013737 003114 073132 MOV FREE, T26R8 STARTING READ BUFFER ADDRESS 
12047 3 KOGKEAEKREAREHHASAAATAAGAKEKERRAKEAKEHHAKESASKKEASHERHAHRRAASAKOEHAHEHRE 
12048 a 
12049 sREREAD DATA,CVC*1,ACK,OPP=1 COMMAND 
$ 
12051 § 900660060600666606066066066066060606606606660606666606600666060666066008600686 
15053 oss 067454 012737 161401 073130 MOV #161401, T26PK3 sREREAD DATA CVC*1,ACK.OPP=1 COMMAND 
12054 067462 012704 073130 165%: MOV @T26PK3.R4 3SET UP R4 WITH PACKET ADORESS 
12055 067466 010337 073136 MOV RS. T2652 SET UP RECORD SIZE IN PACKET 
12056 067472 010465 MOV R4. TSDBCRS) sISSUE COMMAND 
12057 067476 737 016340 JSR sWAIT FOR SSR TO SET 
12058 067502 016501 000002 MOV TSSRCRS)R sGET TSSR CONTENTS 
12059 067506 012702 100204 MOV pssniscc6ri2. R2 3SET UP EXPEC 
12060 067512 020102 CMP R1,R2 3ARE E 
12061 067514 001406 6EQ 1708 :6R, 
12062 067516 005237 002212 INC FATFLG ;BUMP COUNT 
12066 067522 ERRHRD ERRNO, T26TRL.PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
067522 104456 TRAP CSERHRD 
067524 001304 .WORD 708 
067526 075542 “WORD T26TRL 
067530 012136 WORD PKTSSR 
12067 067532 170%: | CKLOOP ;LOOP IF SELECTED 
067532 104406 TRAP = C8CLP1 
ros t4 3 SERASEHASHEHAAEEEHASEGKAKSEHAEELRESSEASASREKESSOASKHRAPRAARASESHELABHRAEKLESAABH 
Q 
12071 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
i078 : EKSHKESEKREASSEKERELAGEHKAESAEOPRAESEKSESSEKAASEHKERHAAESAKERSEESESSELESSESOA 
1207S 067534 013701 073030 T26BFR+6,R1 :GET ME 
12076 067540 010102 MOV R1,R2 3SET UP EXPECTED 
12077 067542 052702 010000 BIS eeitiz, R2 sSET THE RLL BIT IN EXPECTED 
12078 067546 020102 CMP 1,R2 3ARE THEY & 
12079 067550 001406 BEQ Tae 36R, IF EQUAL CALL IS WELL) 
067552 005237 002212 INC FATFLG ;BUMP COUNT 
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SEQ 0258 
TEST 6: REREADS 
120864 067556 ERRHRD ERRNO, T26LON,EXPREC ;THE RLL BIT WAS NOT SET IN XSTO 
067556 104456 TRAP CSERHRD 
os 362 o7a3i0 “WORD 726L.0N 
Seieee 015564 1808 cuLoor -WORD EXPREC 
12085 bates <) : 
067566 104406 CSCLPi 
12066 067570 012703 000777 MOV #511. ,R3 +} UP SIZE OF RECORD 
12087 067574 013737 003114 073132 MOV FREE, T26R8 sSTARTING READ BUFFER ADORESS 
12089 PSSORSEAAAAAHAREARHAGCEASSHLASHAGLASEHMEOHSSAOHRESSESASAAEAGERHLEEIASSS 
12090 $ 
12091 sREREAD DATA,CVC=1.ACK COMMAND 
12033 5 
12094 PPESHHHAKSEKSEHHASLELAORAESSARERSASESOHHKALSEHASKSIKSSAASHSLGALLSOKSDS 
12095 067602 012737 141401 073130 MOV #141401 , T26PK3 sREREAD DATA,CVC=1.ACK COMMAND 
12096 067610 012704 0731350 3658: MOV @T26PK3 ,R4 3sSET UP R4 R4 WiTH PACKET T ADORESS 
12097 067614 C10337 073136 R3, 12682 SET UP RECORD SIZE IN PACKET 
010465 MOV R4, TSOBCRS) COMMAND 
12099 067624 004737 016340 JSR PC ,WAITF ;WAIT FOR SSR TO SET 
12100 067630 016501 000002 MOV TSSRCRS),R sGET 1SSR CONTENTS 
12101 067634 012702 100204 MOV essniscréite, R2 3sSET UP EXPECTED 
i121 067640 020102 CMP R1,R2 + ARE THEY EQUAL 
12103 067642 001406 BEQ 370% 36R, IF OK 
12104 067644 005237 002212 INC FATFLG sBUMP COUNT 
12108 067650 ERRHRD ERRNO, T26TRL .PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
067650 104456 TRAP Cc 
7652 0013506 - WORD 10 
067654 075542 - WORD T26TRL 
067656 0121356 -WORD PKTSSR 
12109 067660 3708: CKLOOP sLOOP IF SELECTED 
42110 067660 104406 TRAP CscLPi 
setke {SARA SSEARSKAAAKKKALSHHEKESCHRASARSELALHRSSOEAAHSEEHBAAGHASSERKAASSEKEODES 
1 3 
13148 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
i 
itr PSASHEHRARAHSOREASOHKEEAGASHRASAAKSSEKALSARHSRSSSAKAKKSKESKHROHSAASEH 
i 
12117 067662 013701 073030 MOV T26BFR+6,R1 sGET MESSAGE BUFFER 
12118 067666 010102 MOV 1,R2 sSET UP EXPECTED 
12119 067670 052702 010000 BIS #6iT12.R2 sSET THE RLL BIT IN EXPECTED 
12120 067674 020102 CMP R1,R2 i ARE THEY EQUAL 
12121 067676 001406 BEQ 380% 3s8R, IF EQUAL CALL IS WELL) 
12122 067700 + 002212 INC FATFLG BUMP COUNT 
12126 067704 ERRHRD ERRNO, T26L0N,EXPREC sTHE RLL BIT WAS NOT SET IN XSTO 
067704 104456 TRAP CSERHRD 
00130 = 711 
067710 075310 ‘ T26LO0N 
067712 015564 ‘ EXPREC 
12127 067714 38608: CKLOOP 
7714 104406 TRAP CSCLPi 
12128 067716 ENODSUB 3>>>>>>>>2>2>>> END SUBTEST >>>>>>>>>>>> 
067716 110115: 


067716 104403 TRAP CsESUB 
12129 067720 023727 002212 000017 CMP FATFLG,@15. sIS ERROR COUNT AT 25 


TSV7? - HAROWARE TESTS 1-6 
TEST 6: REREADS 


77 03402 
i3i3; oett b0a787 017272 
Hg 
12134 
Hie 
HE 
Hp 
Hi 
1214 
12144 
His 
1214 
121 
Hitt} 
12151 067734 
06 
66 1 
12 004737 075720 
121535 067742 004737 076012 
121354 0677 004737 07 
is 
12157 
12138 
12159 
12160 
12161 
1216s OS 004737 016064 
06 03407 
12164 067760 37 002212 
168 067764 010001 
169 067766 
067766 104455 
Sire Susie 
067772 
067774 012 
a23 70 067776 0135737 002172 
Hie 070004 012704 073000 
Bi 
12175 
2 
Ht 
i 
3 10 737 010752 
Hit one oe pe dl - 
12.06 010001 
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BLO 


999% 36R 
JSR 3 


PC .CKDROP 
999%: 


1° 

iTEST 6, SUBTEST 12 
IVERIFIES THAT A {REREAD NEXT COMMAND READ 
RECORD SHORTER. THAN THE SPECIFIED BYTE 


I TAPE STATUS ALERT TERMINATION WITH 
So el CRLS) BIT SET. IT IS VERIFIED THAT 


5 CRBPCR ) THE MESSAGE 
3 PROPER NONZERO VALUE i THE 
sOIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT 


AND THE 
sACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 
sSTATES OF OPP C(O AND 1). 

5 
3 
i 








BGNSUB g>>>>>>>>>>>> SEGIN SUBTEST DD>>>>>>>>>>9 
. 3 
Csesus 
JSR PC. T26REST sSET COMMAND PACKET 
JSR PC. T26RT2) sSET UP OTHER COMMAND PACKET 
JSR PC. T26RTS sSET UP OTHER COMMAND PACKET 
§6006060600000000000000060606660006068000060600060066006 060000000006 
} ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR 
: O06060000600006060666066660¢ 6660606060666000660000606006066066600060600000006 
JSR PC. SOFINIT DO INITIALIZE ON CONTROLLER 
acs 208 iBR IF WAS OK 
INC FATFLG COUNT 
MoV RO,R1 iCONTENTS OF TSSR REGISTER 
ERROF ERRNO , SFIERR , SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSsEROF 
-WORD 712 
-WORD SF 
WORD OF 
073020 208: MOV UNITN, T260SuW sSET UP UNIT NUMBER 
MoV @T26PACKET .R4 sSUBROUTINE NEEDS PACKET ADORESS 
$ 000606660006060000000000000000006 
;MAITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 
: 88 6E 805258666 E0R669S0666E00060890486 
PC .URTCHR WRITE CHARACTERISTICS 
bes 3 oar CoO COMMAND ISSUED OK 
Inc FATFLG ee toe 
mov RO,.R1 1SAVE S OF TSSR 





i 


t 
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TEST 6: REREADS 
12187 070024 
070024 104456 
070026 001311 
005054 
012124 
104406 


07 7 
070070 012136 
12206 070072 


12214 070074 013701 
12215 070100 010102 
052702 


04406 
12225 070130 012703 
12226 070134 013737 


12233 
12234 070142 012737 


011104 
000002 
000200 


002212 


0v0400 
003114 073132 


140005 073130 
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ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 


26%: CKLOOP sLOOP IF SELECTED 
TRAP 


FERHSAHSASSASSASSASASEASEAESAEEARERESEEESESESEEASESESHESESESESSESESESESE 


; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


3 
FSAHSAAAASEASSAEAESEEAESEAESAASHESEESEEEAEEEESASSASESESESSESSESEESESESE 


JSR PC REWIND CALL TAPE REWIND COMMAND 

MOV TSSR(RS),R1 T TSSR 

MOV @SSR,R2 iSeT UP EXPECTED TSSR 

BCS 308 IF NO PROBLEM 

MOV RO,R4 1ORCKET ADDRESS SET UP 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED al 
. WORD 
“WORD 
“WORD 

30%: CKLOOP ;LOOP IF SELECTED 

TRAP 


[PHRAAAAEEEAEEESEESERESEESEESEEESERESESEEESEAEEREDREEEDEDDEEEEEEEEE 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


i 
FPSHASSEASSSSSSHSHSSSSASEASTESESESEASASSSSSSHSSESASSHSSSSSSSASSEKESESEAESE 


MOV ay Anat Ri sPICK UP _XSTO 

MOV R sSET UP _ EXPECTED 

BIS cei. R2 sSET wu ay IN EXPECTED 

CMP R2 sD0ES E REC'D 

BEQ 408 sBR, IF "EQUAL (OK) 

INC FATFLG ; BUMP 

ERRHRD ERRNO, T26B0T ,EXPREC i TAPE NOT ar BOT AFTER as yy 
. WORD 
- WORD 
. WORD 

408: CKLOOP ;LOOP IF SELECTED a 
MOV #256. ,R3 sRECORD SIZE 
MOV FREE, T26RB sSTARTING WRITE BUFFER ADDRESS 


$RORAREAEESEEEESEEEEEEEEEEEEEEEEEDEOOO460000606000006060000000000000008 
4 
sWRITE DATA,CVC=1,ACK COMMAND 


t] 
SSAAKEEARASHEAHREARRAEEASSHAREASARHAMAHAKADEHERAARKSRAOHEHKHEEEAEHREHEHR 


MOV #140005 , T26PK3 sWRITE DATA,CVC=1,ACK COMMAND 


SEQ 0260 


26RWN 
PKTSSR 
CsCLP1 
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TEST 6: REREADS 


12236 070 
12237 070154 
12238 070160 
12233 ovoies 


240 070170 
12241 070174 
070200 


| 12235 ret es 
| 








012704 
010337 
0465 


013701 
02 


073130 
073136 
000000 
016340 
000002 
000200 


002212 


65%: 


758: 
1208: 


FSSSSHSHHSKNSSE LSERESAESASHESHESESESESESHEHESSESSHESESSESHSEHEEESEEES 


NISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


3 
FESSHSSHSESSSEHSSESSESSSSSSSHSESSHSESSHEESSESSSHSSSSSSESSHSSESESSSSESESES 


1308: 
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CKLOOP 


CKLOOP 


@T26PK3 ,R4 


R3,T26SZ 
R4, unyee RS) 
PC ,WAITF 


TSSRCRS), RI 
@SSR,R2 
R1,R2 

754 


FATFLG 
ERRNO, WRTERR ,PKTSSR 


PC ,REWIND 
oon aa oR1 


ERRNO, T26RWN,PKTSSR 


Page 77-157 


SEQ 0261 


sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 


ISSUE C 
iWAIT FOR SSR TO SET 
IGET TSSR CONTENTS 


sSET UP EXPECTED 

sARE THEY E 

s0R, I 

sBUMP COUNT 

sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 716 


-WORD WRTERR 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLPi 


‘CALL TAPE REWIND COMMAND 
SET UP “Y°ECTED TSSR 

a) EM 
PACKET MUORESS SET UP 


sBUMP COUNT 
sREWIND NOT ACCEPTED 


PRARHEFHSHSSARSSSHAAREHSHREHHERHSAGHASEAEAAHRSHEEKRAAHHKHESEKHHRHESHHASCHEEH 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


e 
J SSHSSSSHSSSSSSSSHSSSSSSHSHSHESSSSHESSSSSESSHSSSHESSSHSSHESEEEEHEEEEEEE 


135%: 


MOV 
MOV 
BIS 
CMP 
BEQ 
INC 
ERRHRD 


CKLOOP 


ap “pla oR1 


FATFLG 
ERRNO , T2680T , EXPREC 


TRAP CSERHRD 
. WORD 717 
. WORD T 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSsCLPi 
or UP xSTO 
T UP EXPECTED 
iSET BOT BIT IN EXPECTED 
sD0ES EXP = “ate i) 
:BR, IF EQUAL (OK) 
;BUMP COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 18 
. WORD T2680T 
EXPREC 


;LOOP IF SELECTED 


—--+ 





' 


| TSV7 - HARDWARE TESTS 1-8 MACRO YOS.02 Monday 16-Sep-85 13:41 Pege 77-158 


| SEQ 0262 
| TEST 6: REREADS 
070312 104406 TRAP - CSCLP1 
12287 070314 012703 001000 MOV #512. .R3 sRECORD SIZE 
12288 070320 013737 003114 073132 MOV FREE. T26R8 sSTARTING READ BUFFER ADDRESS 
+es51 FRHKSHOEHASAHAAESAASKESSHEATHSHEHSODALEARLHGARHHASESHSSEHAASSAKHAKHHSH 
i 3 
12292 sREREAD NEXT, ACK,CVC#1,0PP*1 
1229 : 
13335 3 SASSASHASSSHASSSASSSSHSSSHSSHSSHSSSSSHSAASSHSHSSSSSHESESESSSSSESESEESEEEEES 
13e ee 070326 012737 161401 073130 Mov @161401, T26PK3 sREREAD NEXT, ACK,CVC=1,0PP*1 
12297 070334 012704 073130 165%: MOV OT26PK3,R4 :SET UP R4 WITH PACKET ADDRESS 
12298 070340 010337 073136 MOV R3, 12652 ;SET UP RECORD SIZE IN PACKET 
12299 070344 010465 000000 MOV R4.TSOBCRS) sISSUE COMMAND 
12300 070350 004737 016340 JSR PC .WAITE ;WAIT FOR SSR TO SET 
12301 070354 016501 000002 MOV TSSRCRS :GET TSSR CONTENTS 
12302 070360 012702 100204 MOV essnisciérte, R2 sSET UP EXPECTED 
12303 070364 020102 CMP R1,R2 SARE THEY EQUAL 
12304 070366 C01406 BEQ 1708 :BR, IF OK 
12305 070370 005237 002212 INC FLG ;BUMP COUNT 
12309 070374 ERRHRD ERRNO TOGTRL.PKTSSR ;TSSR INCORRECT AFTER READ DATA 
070374 1044 TRAP CSERHROD 
070376 001317 x 71 
070400 075542 "WORD T26TRL 
070402 012136 "WwORD PKTSSA 
12310 070404 170%:  CKLOOP ;LOOP IF SELECTED 
aati 070404 104406 TRAP = CSCLP1 
Heath PESLEREEATEAGAARRHEAAGROARHLOALERARRSRERALAARSHRARAEHRHLARERAARMASEHEH 
1 3 
12314 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
. 
12336 F] SSSSSESSSSSSESESSEESESEEEEEFESEEEEEEEEEEEEEEEEEEEEEEEEESEESEEEEEEEESD 
i 
12318 070406 013701 073030 MOV T26BFR+6,R1 :GET MESSAGE BUFFER 
12319 070412 010102 MOV R1,R 3SET UP EXPECT 
12320 070414 052702 040000 BIS @81T14,R2 ;SET THE RLS BIT IN EXPECTED 
12321 070420 020102 CHP R1,R2 ;ARE THEY E 
12322 070422 001406 BEQ 180% 3BR, IF EQUAL CALL IS WELL) 
12323 070424 005237 002212 INC FATFLG ;BUMP COUN 
12327 070430 ERRHRD ERRNO, T26LOP,EXPREC ;THE RLL BIT WAS NOT SET IN XSTO 
070430 104456 TR c 
070432 001320 .WORD 720 
070434 075372 "WORD T26LOP 
070436 015564 “WORD EXPREC 
12328 070440 180%:  CKLOOP 
070440 104406 TRAP —s- CSCLP1 
12329 070442 013701 0/3026 MOV T26BFR+4,R1 ;PICK UP RESIDUAL BYTE COUNTER 
12330 070446 012702 000400 MOV @256. .R2 sTHIS SHOULD BE THE DIFFERENCE 
12331 070452 020102 CHP R1.R2 iTS THE DIFFERENCE CORRECT 
12332 070454 001405 BEQ 1908 IF CORRECT 
12336 070460 ERRHRD ERRNO, T26PEP,.EXPREC eOeCR NOT CORRECT 
070460 104456 TRAP CSERHROD 
070462 001320 .WORD 720 
070464 075454 “WORD T26PBP 
70466 015564 "WORD EXPREC 


° 
12337 070470 190%: CKLOOP sLOOP IF SELECTED 
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070470 104406 
12338 070472 0127035 


12388 


itt 070476 013737 


012737 


013701 
010102 
o2 


001000 
003114 


141401 


0/3026 
000400 
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073132 


073130 


TRAP CSsCLPi 
MOV #512. ,R3 sRECORD SIZE 
MOV FREE, T26R8 sSTARTING READ BUFFER ADORESS 


PERRRHEBRAATAGHEGREHOSAARAHERKEROHARAEHRELHEERAREGKRARHASHAARAAKRHSSSHERES 
IREREAD NEXT, ACK,CVC#1,0PP=0 


8 
PPAAERASHAARHKSEMSHAESAEEEKARLSEHALAKHAHSEHSAEREAKEROKAKEAEHSEASEREHD 


MOV #141401, T26PK3 REREAD NEXT ACK .CVC* 2. OPP =0 

MOV @T26PK3,R4 3SET SP uiTn T ADORESS 

MOV R3, 12652 :SET vp RECORD —— tN PACKET 

MOV Ra. TSOBCRS) 

JSR P ;WAIT FOR SSR TO SET 

MOV TSéRc aS) ;GET TSSR CONTENTS 

MOV essniscéit2, R2 sSET UP EXPECTED 

CMP R1,R2 sARE THEY EQUAL 

BEQ 2708 :6R, IF 

INC FATFLG ;BUMP COUNT 

ERRHRO ERRNO, T26TRL.PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP  CSERHROD 
. 721 
“WORD T26TRL 
"WORD PKTSSR 

270%:  CKLOOP ;LOOP IF SELECTED 


TRAP CsCLPi 


PRASGAERELAREGERERAKOAAAAKEAAAAARASSARRAAAAREHRAASAHARAKRAREHRASKERAKSRH 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


é 
PReRARAAARARKKSHAKSAKELARHOAASARAKKHHHKARKEASERAHSSAAKASRHKSEH SAAR KALHRD 


+ od T26BFR+6,R1 sGET MESSAGE BUFFER 


R1,R sSET UP EXPECTED 

BIS o8iT14,R2 sSET THE RLS BIT IN EXPECTED 

CMP R1,R2 sARE THEY 

BEQ 280% 3BR, IF EQUAL CALL IS WELL) 

INC FATFLG sBUMP COUN 

ERRHRD ERRNO, T26LOP,EXPREC ;THE RLL BIT WAS NOT 1. art. 
-WORD 722 
-WORD T26LOP 
-WORD EXPREC 

280%: CKLOOP 

TRAP CsCLP1 

MOV T26BFR+4,R1 sPICK UP RESIDUAL BYTE COUNTER 

MOV #256. ,.R2 sTHIS SHOULD BE THE DIFFERENCE 

CMP R1,R2 e+ DIFFERENCE CORRECT 

BEQ 290% CORRECT 

E ERRNO, T26P6P ,EXPREC ‘ROPCR NOT CORRECT 
TRAP CSERHRO 
-WORD 722 
-WORD T26PBP 
WORD EXPREC 


290%: CKLOOP sLOOP IF SELECTED 


SEQ 0263 
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| SEQ 0264 
| TEST 6: REREADS 


070646 104406 TRAP CsCLPi 
12389 070650 ENDSUB 3>>>>>>>>>>>3> END SUBTEST >>>>>>>>>>>> 
070650 L10116: 
070650 104403 TRAP CsESUB 
12390 070652 023727 002212 000017 CMP FATFLG,@15. sIS ERROR COUNT AT 25 
12391 070660 103402 BLO 999% 3BR, IF LESS THAN 25 
12392 070662 004737 017272 JSR PC ,.CKDROP sTRY TO DROP THE UNIT 
12393 070666 999%: 
12394 
12395 s¢ 
12396 ’ 
itd sTEST 6, SUBTEST 13 
8 
12399 sVERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
12400 sNONEXISTENT MEMORY CAUSES RECOVERABLE ERROR 
12401 s TERMINATION (TC*4 OR 5) WITH NXM=1 AND THAT THE TAPE 
12402 sIS ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS 
12403 30F REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED. 
12405 
12406 070666 BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
070666 76.13: 
070666 104402 TRAP Cs6SuUB 
12407 070670 005737 003126 TST NXMFLG 300 WE HAVE IT? 
12408 070674 001002 BNE 10% + IF ENOUGH 
12409 070676 000137 071700 JMP 200% SKIP THIS pest IF NOT 
12410 070702 004737 075720 10%: JSR PC, T26REST iSET COMMAND PACKET 
12411 070706 005037 073156 CLR T26CNT ;CLEAR TAPE RECORD COUNTER 
12412 070712 004737 076012 JSR PC, T26RT2 3SET UP OTHER COMMAND PACKET 
ety 070716 004737 076054 JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 
tte { PARAAAAAAAAAAESESEASEEASSERESSEASEALESAESESSEEEESHSSESSEEKEEEEKEEEEEEE 
16 3 
ated sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
i 
yet {PORK ASEEEEEEEEEDSEEEDEEESEEEEEEDEEEEEEDEEEEEDEEEDOEEEEESESEEEEEDDDEE 
124. 
12421 070722 004737 016064 JSR PC ,SOFINIT 3:00 agg BO ON CONTROLLER 
12422 070726 103407 BCS 20% 3BR IF INIT WAS OK 
12423 070730 005237 002212 INC FATFLG ;BUMP COUNT 
12427 070734 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
124286 070736 ERROF ERRNO, SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
070736 104455 TRAP CsEROF 
070740 001323 723 
070742 003650 -WORD SFIERR 
070744 012124 -WORD sSFIMSG 
12st 070746 013737 002172 073020 20%: MOV UNITN, T260SW sSET UP UNIT NUMBER 
att 070754 012704 073000 MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
ety § FOSOSO60060606066000606660606606066060606460060664660066068060606600086608 
i 
pets sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3 
at § PHSSAOOKESEEAEEEEEEEEEEEEEEEEEESEEEEEEEEEEEEESOEEEEEEEOEEEEEEEDEEE 


2438 
12439 070760 004737 010752 JSR PC, .WRICHR sISSUE WRITE CHARACTERISTICS 
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00 
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010102 


04406 
013737 


002212 


021252 
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ecs 26% 
INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SFIMSG 


3BR, IF COMMAND ISSUED OK 
UMP COUNT 


8 
sSAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC he 


CSERHRD 
724 
“WORD WRTMSG 
268 CKLOOP LOOP IF SELECTED uate ai 
: 3 
TRAP  CSCLP1 
PECRMHEHAAHKEHARHAEAEAEEEAKEMAAGAAHAHAREREEEEEARARREREESEAKAREKEHRESHERE 
3 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
Q 
PRGRAAHAKAEEAERRERHAEEERAAREAEEMAHEKAHREARARARKEHEKALKAHHEREEKERHEREREDE 
JSR PC, INVERT sINVERT THE EXTENDED FEATURES SWITCH 
JSR PC. REWIND ;CALL TAPE REWIND COMMAND 
BcS 30% 3BR, IF NO PROBLEM 
MOV TSSRC(RS).R1 3GET TSSR 
MOV RO,R4 ;PACKET ADDRESS SET UP 
INC FATFLG 38 
ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 
TRAP CSERHRD 
.WORD 725 
“WORD T26RWN 
"wORD PKTSSR 
308: CKLOOP ;LOOP IF SELECTED 
TRAP CS$CLP1 
SRSRSSRARRRAEKHEAKLKGKREAKARSEREREKRSERALHAAAEKHEESAAKAKHARAEHHAEKRGALRALHKRKASE 
] 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
3 
PRR RAAREKREREAEERREARARHRRAARAERAEHERAKARAHEAAERAEHRARAKEDERAARREAAHERE 
MOV T26BFR+6,R1 ;PICK UP XSTO 
MOV , ;SET UP EXPECTED 
BIS @81T1,R2 :SET BOT BIT IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 40$ 38R, IF EQUAL (OK) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T2680T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP  CSERHRD 
.WORD 26 
"WORD T26B0T 
"WORD €XPREC 
40$: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
073132 MOV FREE, T26RB :STARTING WRITE BUFFER ADDRESS 


{CRREAEAEERESEEESEESDEEEEEEEEEEEEEEEEEDEEOEEEOEEEEEEEEEEEEEEEERERDEE 
: 
sWRITE DATA,CVC=1,ACK COMMAND 


L] 
PPEEKKEEEAHHKEKEKARAEA RHEE REKHLEKAARHKHKAKRASRHHKHEESESEKGAARAAKHHHK 


SEQ 0265 
| 





j 
i 
| 
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| SEQ 0266 
TEST 6: REREADS 
12491 
12492 071 012737 140005 073130 MOV #140005, T26PK3 ; WRITE DATA. CVC#1., ACK COMMAND 
12493 071114 012704 073130 MOV @T26PK3,R4 sSET PACKET ADDRESS 
12494 071 012737 000400 073136 65%: MOV 0256. T3082 sSET UP RECORD” SIZE IN PACKET 
12495 071126 013777 073156 111760 MOV T26CNT , BFRE sMOVE RECORD R TO BUFFER 
% O71 737 000001 073156 ADD 1, T26CNT sNUMBER READY FOR NEXT 
12497 071142 010465 000000 MOV R4,TSOBCRS) 1s 
12498 071146 737 016340 JSR PC, WAITF sWAIT FOR SSR TO SET 
99 071152 016501 000002 MOV TSSR(RS), RL :GET TSSR CONTENTS 
071156 012702 000200 MOV @SSR,R2 sSET UP EXPECTED 
12501 071162 102 CMP R1,R2 sARE THEY E 
12502 071164 001406 BEQ 753 :6R, IF 
12503 071166 37 002212 INC FATFLG ;BUMP COUN 
12507 071172 ERRHRD ERRNO, WRTERR,PKTSSR ;TSSR SRCORRECT AFTER WRITE DATA 
071172 104456 TRAP  CSERHRD 
071174 001327 727 
071176 111 “WORD WRTERR 
07 012136 “WORD PKTSSR 
12508 071202 75$: CKLOOP ;LOOP IF SELECTED 
07 RAP  _—CSCLP1 
07 022737 000013 073156 CMP #11. , T26CNT :CHECK NUMBER OF RECORDS WRITTEN 
12510 071212 001401 BEQ 120% ;0R, IF AT END OF WRITE SEQUENCE 
11 071214 000741 BR 65$ ;WRITE MORE RECORDS 
12512 071216 1208: 
12513 071216 005037 003132 CLR NXMHI :SET TO 16 BIT ADDRESS 
12514 071222 125%: 
12515 071222 005037 073156 CLR T26CNT ;SET RECORD COUNTER BACK TO ZERO 
te PRRREMHARLACHOALAARALSEREREARRAERAARGAREERARERAAHEASRRARARSRAASARARL GSS 
3 
12519 ;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
3 
tease ERRAGeGhAR Gas SRASERHKKAARRARE RARER ARAALAMRAKKAEAREARAKRALREARAAHHKHRE BAK 
12523 071226 004737 011104 JSR PC REWIND ;CALL TAPE REWIND COMMAND 
12524 071232 103411 Bcs ;8R, IF NO PROBLEM 
07 016501 000002 MOV TSSRCRS),R1 :GET TS 
12526 071240 010004 MOV PACKET ADDRESS SET UP 
12527 071242 005237 002212 INC FATFLG 3B8UMP COUNT 
12531 071246 ERRHRD ERRNO, T26RWN,PKTSSR }REWIND NOT ACCEPTED 
071246 1 TRAP §CSERHRD 
071250 001330 .WORD 728 
071252 07 ‘WORD iT. 
071254 012136 "WORD PKTSSR 
12532 071256 130%:  CKLOOP ;LOOP IF SELECTED 
suis 07 104406 TRAP = LSCLP1 
18335 PERO RARARHARHANRARRAR EH ERERAERAEEAKETRARRRRAAAKREAEAAARREEEHEAGSRES 
H 
12536 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
3 
Haat SERGE ASHAHAERAEHHeEHKERRAKARHLESRERERAREBEHHASRRECARARELAELEEALSAH 
12540 071260 013701 073030 MOV T26BFR+6,R1 sPICK UP XSTO 
12541 071264 010102 MOV R1,R2 3SET UP EXPECTED 
12542 071266 052702 000002 BIS #81T1,R2 :SET BOT BIT IN EXPECTED 
12543 071272 020102 CMP sR2 3D0ES EXP = REC'D 





12544 071274 


001406 
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BEQ 149% :BR, IF i (OK) 


SEQ 0267 


12545 071276 005237 002212 INC FATFLG ;BUMP COUN 
12549 071302 ERRHRD ERRNO, T26B0T, EXPREC ;TAPE NOT AT BOT AFTER REWIND 
071302 104456 RAP  CSERHRD 
071304 00133 .WORD 729 
071306 07417 "WORD T26B80T 
071310 015 "WORD €EXPREC 
12550 071312 140%:  CKLOOP ;LOOP IF SELECTED 
071312 . 1 TRAP = CSCLP1 
12551 071314 012703 073146 MOV OT26RN,R3 ;COMMAND BUFFER ADDRESS 
12552 071320 013737 003130 073132 150%: MOV NXMLO, T26R8 ISTARTING READ BUFFER ADORESS 
12598 071326 013737 003132 073134 MOV NXMHI, T26RB+2 ;SET UP HIGH ORDER ADORESS BITS 
Head 3 SEASAEAAAALARSSEASAHEHSASASSSESEESEESSESEESEESOASEEEEEEEEEEESEEEEEEEEEESD 
7 
12357 sREREAD DATA, IE,ACK, OPP COMMAND 
3 
12559 3 SESSHAAASAESSASESSSESEASESESESSESEASSEHESESEEAESEESESHESESEEEEEEEEEESEEEE 
iSsex 071334 011337 073130 MOV (R3), T26PK3 REREAD DATA TE.ACK. OPP COMMAND 
12562 071 012704 073130 165%: MOV OT26PK3 ,R4 SET WITH PACKET ADDRESS 
12563 071 012737 073136 MOV $256. T368z sSET Up RECORD” SIZE IN PACKET 
12564 071352 010465 MOV Ra. TabBCRS) sISSUE COMMAND 
12565 071356 737 016340 JSR PC; WAITF ;WAIT FOR SSR TO SET 
12566 O71 016501 2 MOV TSSR(RS),R1 3GET TSSR CONTENTS 
12567 071366 012702 104210 MOV @SSRINXM!SC!BIT3,R2 3SET UP EXPECTED 
12568 071372 102 CMP RL Re ;ARE THEY EQUAL 
12569 071374 001422 BEQ ;8R, IF OK 
12570 071376 031327 001000 BIT ta), @B1T9 i CHECK FOR A READ COMMAND : 
12571 071 001403 BEQ 168% ;6R, IF IT WAS A READ COMMAND 
12572 071 030127 000002 BIT Rl, @BIT1 WAS BIT1 SET : 
12573 071410 001014 BNE 1708 38R, IF REREAD AND BIT1 SET : 
12574 071412 1688: 
12575 0714 37 003132 INC NXMHI :BUMP TO NEXT ADORESS RANGE 
12576 071416 023727 003132 000004 CMP NXMHI , 04 ;CHECK FOR OVERFLOW 
12577 O71 001276 BNE ;6R, IF MORE BITS TO GO 
12578 071426 37 002212 INC FATFLG ;BUMP COUNT 
12582 071432 ERRHRD ERRNO, T26RRF ,PKTSSR ;TSSR INCORRECT AFTER REREAD DATA 
071432 104456 TRAP  CSERHRD 
071434 001332 .WORD 730 
071436 073405 "WORD T26RRF 
071440 012136 "WORD PKTSSR 
12583 071442 170$: | CKLOOP ;LOOP IF SELECTED 
" 07 104406 TRAP —s- CSCLP1 
ited : $20066466066 6466666666666 0666666666466686466668666666666066606666646686 
3 
12587 ;READ DATA, ACK,CVC=1 COMMAND 
: 
Hest PROBE ERE GEAR EEHREEERERARAERAAHHEAERHAHESSAAHAHEHEHLESHHAEKHSAEHERS AD 
12591 071444 012737 140001 073130 MOV #140001, T26PK3 ;READ DATA, ACK,CVC#1 collin 
12592 071452 012737 000400 073136 MOV 0256. , 126SZ 3SET SIZE INTO PACKET 
12593 071460 005037 073134 CLR T26RB+2 ;CLEAR OUT ADDRESS BITS 
12594 071464 013737 003114 073132 MOV FREE, T26R8 ;GIVE READ A GOOD BUFFER 
12595 071472 010465 000000 MOV R4, TSDBCRS) ;ISSUE READ DATA COMMAND 
12596 071476 004737 016340 JSR PC WAITF ;WAIT FOR SSR 
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12597 071502 016501 000002 MOV TSSRCRS).R1 sPICK UP THE TSSR 
125986 071506 012702 000200 MOV @SSR ,R2 sSET_UP EXPECTED 
12599 071512 020102 CMP Ri,R2 sIS THE TSSR OK 
12600 071514 001406 BEQ 1808 s6R, IF TSSR OK (GOOD) 
12603 071516 005237 002212 INC FATFLG sBUMP COUNT 
071522 ERRHRD ERRNO,RDERR,PKTSSR ;READ DATA COMMAND FAILED 
071522 104456 TP AP CSERHRO 
071524 001333 -wORD 731 
071526 005204 -WORD RDERR 
071530 012156 -WORD PKTSSR 
12606 071532 180%: CKLOOP sLOOP IF SELECTED 
071532 104406 RAP CscLPi 
12607 071534 017701 111354 MOV OFREE ,R1 sFIRST WORD FROM READ BUFFER 
12608 071540 012702 000001 MOV #1,R2 sSET UP EXPECTED 
12609 071544 020102 CMP R1,R2 sIS_ TAPE POSITION a 
12610 071546 001406 BEQ 190% iKEEP GOING POSITION OK 
12611 071550 005237 002212 INC FATFLG sBUMP COUNT 
12615 071554 ERRHRD ERRNO, T26WNG,EXPREC i TAPE POSITION INCORRECT 
071554 104456 TRAP CSERHROD 
071556 001334 -WORD 732 
o71 073166 -WORD T26WNG 
071562 015564 -WORD EXPREC 
12616 071564 190%: CKLOOP 
32637 071564 104406 TRAP CSCLP1 
12618 $ CORSEOAEEEEESESEEESEREEESEEEESESEEEESEEEESEEEEEEEEEEESEEEEEEEEOEES 
; 
Hatt sISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
Hi 
1e6ee J ORSESREEESEEESEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEESESEEEEDEEEEDEEEEEES 
12624 071566 004737 011104 JSR PC ,REWIND sCALL_TAPE REWIND COMMAND 
12625 071572 103411 BCS 194% we NO PROBLEM 
12626 071574 016501 000002 MOV TSSRCRS).R1 iGEt T 
12627 071600 010004 MOV RO,R4 t BACKET ADDRESS SET UP 
12628 071602 005237 002212 INC FATFLG sBUMP T 
12632 071606 ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
071606 1044 TRAP CSERHRD 
071610 001335 -WORD 733 
071612 074464 - WORD 
071614 012136 -WORD PKTSSR 
12633 071616 194%: CKLOOP sLOOP IF SELECTED 
071616 104406 TRAP CSCLP1 
12633 § OOOOOOO404060606600660066060006606060006600000400000000000000000000888 
s 
pet sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
: 
12639 { POROSEEAESEESEEESEESEEEEEEEEEEEEEEEEEEEE6EE606060000000000000000008 
12641 071620 013701 073030 MOV T26BFR+6,Ri sPICK UP XSTO 
12642 071624 010102 MOV Ri sSET UP EXPECTED 
12643 071626 052702 000002 BIS o8iT1,R2 iSET B0T SIT IN EXPECTED 
12644 071632 020102 CMP R1,R2 sD0ES EXP = REC'D 
12645 071634 001406 BEQ 196% :BR. IF EQUAL (OK) 
12646 071636 005237 002212 38 


INC FATFLG UMP COUNT 
12650 071642 ERRHRD ERRNO, T26B80T ,EXPREC i TAPE NOT AT BOT AFTER REWIND 
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SEQ 0269 


071642 104456 TRAP CsERHRD 
071644 001336 -WORD 734 
071646 074175 - WORD T2680T 
071650 015564 - WORD EXPREC 
12651 071652 1968: CKLOOP 3LOOP IF SELECTED 
071652 104406 TRAP CSCLPi 
13633 071654 010302 MOV R3,R2] sSAVE R3 FOR A MOMENT 
1303s : SECAHESEAEEASESEESEESESESEESSESEEEEEESSESEESESESESEEESESEEEEESEEED 
12656 ry i ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
ott sB8IT 15 SETS DIRECTION - O=FORWARD 1*REVERSE 
3 
port § SCHOHSSESHESESESEESEEEEESEEEESEERESEEEESSEEEEEEEEEEESEEESESESEESEOESS 
12661 071656 012703 000001 MOV #1,R3 sSPACE ONE RECORD 
12662 071662 004737 010556 JSR PC, SPACE sCALL SPACE ROUTINE 
010203 MOV R2,R3 sRESTORE RS 
12664 071670 c¢c0oS57235 TST CR3)¢ sBUMP COUNTER 
12665 071672 021327 177777 CMP (R3),@177777 sEND OF COMMAND BUFFER YET 
12666 071676 001210 BNE 150% sMORE COMMANDS KEEP GOING 
12667 071700 2008: 
12668 071700 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
071700 L10117: 
71700 104403 TRAP CsEsus 
12669 071702 023727 002212 000017 CMP FATFLG, #15. 3IS ERROR COUNT AT 25 
12670 071710 103402 BLO 999% ;6R, IF LESS THAN 25 
12671 071712 004737 017272 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
12672 071716 999%: . 
12673 
12674 3° 
12675 3 
ise7e ‘ened 6, SUBTEST 14 
12678 i VERIFIES THAT REREAD PREVIOUS WITH OPP=0 (SPACE 
12679 sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1 
12680 3; (READ VERSE, SPACE FORWARD) ISSUED WHEN THE TAPE 
12681 POSITIONED AT BOT CAUSE FUNCTION REJECT TERMINATION 
12088 sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 
1268 3 
12684 3 
12685 8 
12686 s- 
12687 071716 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
071716 T6.14: 
071716 104402 TRAP L$BSUB 
12688 071720 0050035 CLR R3 sCLEAR TEST COUNTER 
126869 071722 004737 0/5720 JSR PC, T26REST sSET COMMAND PACKET 
12690 071726 004737 076012 JSR PC. T26RT2 sSET UP OTHER COMMAND PACKET 
+2633 071732 004737 076054 JSR PC, T26RTS 3SET UP OTHER COMMAND PACKET 
= §90600066606060006666006060680606060660600606680660600666066060060600066000800608 
a 
pete sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
12697 §O600660000666660006600066600666000606606000660000606660006060606000000000008 
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1736 
15900 ov 743 


0717 
12707 071762 
ihe 071770 


012124 
013737 
012704 


016064 
002212 


002172 
073000 


010752 
002212 


011104 
000002 


002212 


073020 20%: MoV 


MOV 


PC, SOF INIT 
208 

Rored® 

ERRNO, SFIERR, SFIMSG 


UNITN, T260SW 
@T26PACKET ,R4 
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SEQ 0270 


00 INITIALIZE ON CONTROLLER 
‘BR IF INIT WAS OK 
‘CONTENTS OF TSSR REGISTER 


sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 735 
-WORD SFIERR 
-WORD SFIMSG 


sSET UP UNIT NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 


PRAAKSEKARKAKAREREAEAEEAASKGHARSEARERSESSAGSEREEHHEDAAAAAHAASSSESHTASH 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
PUTT TTT TTT TT TTT TTT TTT TTT TTT TTTTTTTTTTTTTTTT TTT TTT TTT TTT TTT TTT tT 


JSR 
6csS 
3 


PC _—- 
yA 


RO,R1 
ERRHRO ERRNO, WRTMSG, SFIMSG 


25%: CKLOOP 


s ISSUE WRITE CHARACTERISTICS 
3BR, COMMAND ISSUED OK 


sBUMNP COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRO 
-WORD 736 
-WORD  WRTMSG 
-WORD SFIMSG 


sLOOP IF SELECTED 


§ PRRESEEEEEEEESESESEESEEEEESSEEEEESEEESEEEEEEEEOEEESEESDEEEEEEEEEESEE 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


$ 
LAehSAP RHE aGSOe Sse Ges SseAGakSeARsashSsahaShe sa eGs GAS Aste Sheassesaae 


268: JSR 
MOV 
MOV 
ecs 
MOV 


INC 
ERRHRD 


308: CKLOOP 


PC ,REWIND 
TSSRCRS),R1 
@SSR ,R2 

30% 

RO,R4 


FATFLG 
ERRNO, T26RWN,PKTSSR 


CALL TAP TAPE REWIND COMMAND 
1se7 i “EXPECTED TSSR 
PROBLEM 
PACKET ADORESS SET UP 


BUMP COUN 
; REWIND NOT ACCEPTED 


TRAP CSERHRO 

-WORD (37 

-WORD T26RWUN 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


s COOSSSSESSEESEEESSESSESSEESEESESESEESERESSEESSESOEEESEEESEEEEEEDOEE 
’ 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
{BRA REESEBEDEGEAABRARRESSASSHEMEKEEOAREHEKELAGEARASSHRALESHASBLESHLARAH 
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SEQ 0271 
TEST 6: REREADS 
12751 072060 013701 073030 MOV T26QFR+6.Ri sPICK UP XSTO 
12752 072064 010108 MOV R1,R2 sSET UP EXPECTED | 
12753 072066 02 000002 BIS eetti.ne 3SET BOT BIT IN EXPECTED 
12754 072072 020102 che R1,R2 ;D0ES EXP = REC’D 
1275S 072074 001406 BEQ :8R, IF EQUAL (OK) 
12756 072076 37 002212 INC FATFLG sBUMP COUNT 
12760 072102 ERRHRD ERRNO, T2680T,EXPREC sTAPE NOT AT BOT AFTER REWIND 
072102 104456 TRAP § CSERHRD 
072104 001 .WORD 738 
072106 0741 “WORD T2680T 
072110 01 [WORD EXPREC 
12761 072112 40%:  CKLOOP ;LOOP IF SELECTED 
O72112 1 TRAP  CSCLP1 
12762 072114 012737 000400 073136 MOV €256. , T26SZ sSET UP RECORD SIZE IN PACKET 
12763 072122 013737 003114 073132 MOV FREE. T26R8 sADORESS OF READ 
12764 072130 005703 TST :CHECK NUMBER OF TIMES THROUGH HERE 
12765 072132 001404 BEQ 508 16R, IF FIRST TIME THROUGH HERE 
Ad SENSE SSLAFCSHSASEHHEKAHASSSESEEHEEEHASEHEEEHSSESKESEESESHSESSESSEEESEEE 
3 
12769 sREREAD,CVC=1,ACK COMMAND 
+3773 ; SESSSSSSESSSSSSESSSSESSSSASHSSESAASSSSESSSSSSSSESSSEESESEEEESESESEEEE 
12773 072134 012737 161001 073130 MOV #161001, T26PK3 sREREAD.CVC*1,ACK COMMAND 
12774 072142 000403 BR 55% 3SKIP NEXT COMMAND 
1e78 3 GKAAKAHKAAAADRKEKAKAKREEREAEAEKHAAAKRRARAARAREARALRGHAAKREAEREREHAVHARERABRH 
12778 }REREAD, ACK COMMAND 
serey - EEARARHAAKHADESDASHKESEHKRLARHSESSKREKEESECEHEHKRHEKASKSHKESERAAHAALSEHKASEEKS 
127 972144 012737 141001 073130 508: MoV #141001, T26PK3 sREREAD,ACK COMMAND 
12784 972132 012704 073130 a MOV @T26PK3,.R4 :SET UP R4 WITH PACKET ADDRESS 
+ 
12786 072156 010465 000000 MOV R4, TSDBCRS) 
12787 072162 004737 016340 JSR sWAIT FOR SSR TO SET 
072 016501 000002 HOV TSSRC(R 3GET TSSR CONTENTS 
12789 072172 012702 100206 MOV TSGRCRSD RL R2 =; SET up EXPECTED 
12790 072176 020102 che R1,R2 sARE THEY & 
12791 072200 001406 BEQ 758 :OR, IF OK 
07 005237 002212 INC FATFLG BUMP C 
12796 072206 ERRHRD ERRNO, T26WDE.PKTSSR sTSSR INCORRECT AFTER READ DATA 
greets aoteze Tika $85 
072212 074123 [WORD «iT. 
072214 012136 a “WORD PKTSSR 
12797 072216 75%:  CKLOOP ;LOOP IF SELECTED 
m 072216 104406 TRAP  CSCLP1 
rE thed 739 PSSSSORHSHRUAEGRSEEAGALEHHEHHAEEORREREAONROSRAGHELESEEDSESERSRESSEEESES 
12801 READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
128603 : SERKBHASSEHSARMSORHSHEARRAHSHRSEKHAAAARARHAADRARAKSADALASARHAEADAEKRARSALAS 
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SEQ 0272 








072220 013701 073030 MOV T26BFR+6,R1 sGET XSTO STATUS WORD 
12806 072224 010102 MOV R1,R2 sSET UP EXPECTED 
7 o72226 052702 002000 eIs @81710,R2 sSET THE NEF BIT 
072232 020102 CHP R1,R2 ’ THEY EQUAL 
2234 001406 6EQ 1708 10R, IF EQUAL (GOOD) 
i38i8 07 a eres ERAHRD ERRNO’ T26NEF EXPREC iNEF SHOUD BE SET 
Teas 04456 , : : TRAP —- CSERMRD 
0 344 740 
07 orgase :WORD T26NEF 
° 0. ;WORD EXPREC 
12615 0 170%:  CKLOOP 
0 104406 TRAP ss CSC P12 
12816 072234 00510 con R3 sRESET THE SWITCH 
12817 0 001261 BNE 26% :6R, IF FIRST TIME THROUGH HERE 
12616 072260 ENDSUB 
') L10120: 
072260 104403 TRAP = CSESUB 
12619 072262 023727 002212 000017 CHP FATFLG,@15. sIS ERROR COUNT AT 25 
128620 072270 103462 BLO 9998 18R, IF LESS THAN 25 
12621 072272 004737 017272 JSR PC, CKDROP sTRY TO OROP THE UNIT 
i303 072276 9998: 
isess 1 
5 
12626 sTEST 6, SUBTEST 15 
IVERIFIES THAT REREAD PREVIOUS WITH OPP=1 (SP 
i SE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1 
(READ REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE 
1263 sPOSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (GUT 
1368s sNOT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH 
: T (RIB) STATUS BIT SET. 
g 
1383s . 
ise? a 
12638 BGNSUB >>>->>>>>>>> BEGIN SUBTEST »>>>>>>>>>>>> 
12639 o73800 3os0s? 073160 CLR sCLEAR OUT COUNTER 
12040 004737 075720 JSR PC. T26REST sSET COMMAND PACKET 
i 10 004737 0760 JSR + T26RT sSET UP OTHER COMMAND PACKET 
teat 14 004737 07 JSR PC. T26RT sSET UP OTHER COMPAND PACKET 
s SF SSHSSOHSHSLESSEEKLOECEESSSSESSLOAOAHKSASRSODRSAHSSASHWESLLEEBEHELESAEBALS 
' {ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR 
- 
006737 016064 ys PC, SOF INIT 100 INIT on CONTROLLER 
210001 ae Bee RO aie $ OF TSSR REGISTER 
072334 . ERROF ERRNO. SFIERR,SFINSG iFATAL ERROR TSSR WAS MOT OK 


TSV7 - HAROWARE TESTS 1-8 MACRO YOS.02 Monday 16-Sep-85 15:41 Page 77-169 
TEST 6: REREADS 


SEQ 0273 


072334 104455 , TRAP CSEROF 
072336 001345 «WORD 741 
072340 003650 -WORD SFIERR 
072342 012124 -WORD SFIMSG 

12038 072344 0135737 002172 073020 20%: MOV UNITN, T26DSW sSET UP UNIT NUMBER 

rt 072352 012704 073000 MOV @T26PACKET ,R4 s;SUBROUTINE NEEDS PACKET ADDRESS 

sgese [ PORSAARESEEEESEEEERESEEEESESEREEEEEEEESEEEEEDEEEEEEEEEEEEEEEEEEEES 

i 

ted sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

sz0ee TTT TTT TTT TTT TTTTT TTT TTTTT TTT TTT TTTTTTTTTTTeTTTTTT TTT TT TTT TT TTT 

12668 072356 004737 010752 JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 

12869 072362 103407 BCS 25$ sB8R, IF COMMAND ISSUED OK 

12870 072364 005237 002212 INC FATFLG sBUMP COUNT 

12874 072370 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

12675 072372 ERRHRD ERRNO,WRTMSG,SFIMSG iWRITE CHARACTERISTISC F ot 
072372 104456 TRAP CSERHRD 
072374 001346 -WORD 74 
072376 005054 -WORD WRTMSG 
072400 012124 -WORD  SFIMSG 

12876 072402 25%: CKLOOP sLOOP IF SELECTED 

12877 072402 104406 TRAP CsCLP1 

12878 {PRRSEAESEEESEAEREEERESEEESAESEESEEESEESEESDEESAAEDEDEDEDEREDEAEEES 

ett ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

12eee OTOL TT TTTTT TTT TOT TT TTT TTT TTTTTTTTTTTTTTTTTT TTT TT TT Tye Tre T TT ett ys 

12884 072404 004737 011104 26%: JSR PC, REWIND +o roe REWIND COMMAND 

128685 072410 016501 000002 MOV TSSRCRS),R1 sGET T 

12686 072414 012702 000200 MOV @SSR,R2 + UP EXPECTED TSSR 

12887 072420 103407 BcS 30% R, NO PROBLEM 

12688 072422 010004 MOV RO,R4 rBACKET ADDRESS SET UP 

12889 072424 005237 002212 INC FATFLG UMP COUNT 

128693 072430 ERRHRD ERRNO, T26RWN,PKTSSR ; REWIND NOT ACCEPTED 
072430 104456 AP CSERHRD 
072432 001347 WORD 743 
072434 074464 WORD T26RWN 
072436 0121356 WORD PKTSSR 

128694 072440 30%: CKLOOP sLOOP IF SELECTED 

32095 072440 104406 TRAP CsCLP1 

120s8 {PORES SEAEOESEAESEESSESEEESEESSESSEEEEEEEDEEDEEEEEEDEEEDDEDDEEEEEES 

ated ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

WOTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT TTT TTT TT TTT TTT TTT TTT TTT TT Ty: 

12902 072442 013701 0735030 MOV Teeeen<s. Ri sPICK UP XSTO 

12903 072446 010102 MOV R1,R sSET UP _ EXPECTED 

12904 072450 052702 000002 BIS eeini. R2 sSET BOT BIT IN EXPECTED 

12905 072454 020102 CMP R1,R2 ;D0ES EXP = REC'D 


12906 072456 001406 BEQ 403 iBR, IF EQUAL (OK) 
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7 


12919 


072460 


005237 


012703 
004 


012703 
004737 
103411 
016501 

0004 


002212 


003114 
073160 
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073132 


INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26B0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 744 
-WORD T26B80T 
-WORD EXPREC 


40%: CKLOOP 
TRAP CscLP1 


f SSHSASSSSHASSSEHHSSAEASSSEEESEEEESEEESESSESSSEEHEKESEESSESESEHESES 


VISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD 4*REVERSE 


a 
FSSASASHASSSHSSSSAES SASS SSSSSHASHSASSESSSSESSESESSSESSSEASSSEHSHSSSSESEEEE 


Mov #000001,.R3 ;°ET UP SPACE FORWARD 1 RECORD 
JSR PC, SPACE sISSUE SPACE COMMAND 
Bcs 75% :OR, IF 
MOV TSSR(RS),R1 ;GET STATUS DATA 
MOV RO,R4 ;GET PACKET ADORESS 
INC FATFLG 38 T 
ERRHRD ERRNO, T26WDE,.PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHROD 
.WORD 745 
“WORD  T26WDE 
“WORD PKTSSR 
758: CKLOOP ;LOOP IF SELECTED 


TRAP CsCLPi 
PARPAMEKSSHHAAAGAAASHASHARHSRHHADHEAAHHKOSAACHAKEHASEAAAKRHAHASKESAAHERAEH 


VISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD 1=REVERSE 


3 
FORA SHAASSEEMSEKSESEMAHRHAEAAEAESAEAAAEESARERERHREBEHRHELALGLASEHAREHARH 


MOV #100001,,R3 ;SET SPACE REVERSE 1 RECORD 
JSR PC, SPACE ;ISSUE COMMAND 
BCS 1758 :GO ON IF ALL IS WELL 
MOV TSSRCRS), R1 :GET TSSR CONTENTS 
MOV RO,R :SET UP EXPECTED (PACKET CONTENTS) 
INC FATFUG ;BUMP COUNT 
ERRHRD ERRNO, T26WDE.PKTSSR TSSR INCORRECT AFTER READ ADATA 
CHERHRO 
"WORD T26WDE 
“WORD PKTSSR 
175%:  CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 
MOV FREE, T26R8 sADDRESS OF BUFFER 
TST T26CNU ;CHECK FOR TIMES THROUGH HERE 
BEQ 1768 ;0R, IF FIRST TIME THROUGH 


PPSSEGRSAHASGHSHPHGHARELEASHHSEALHLHKEHAHHSOSHHSASREACEHAHRESSHRHEHRHEHDED 


TREREAD (PREVIOUS), IE,ACK,OPP=1 CMD. 


SEQ 0274 
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012737 161001 
000403 


072606 
12962 072614 


141001 
073130 
000000 
016340 
000002 
100204 


002212 


073160 


0v2212 
017272 


01654¢ 
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073130 


073130 


000017 


: 
s SHHSSASAASHESSSSESASSSSSHSSSEHHSEAESHSESHSSSSSSSSSSSSESSSSSSSSSEESES 


sREREAD (PREVIOUS), IE,ACK,OPP=1 CMD. 
OMMAND 


MOV 
BR 


#161001, T26PK3 
178% 


sSKIP NEXT C 


F SOHSHSHSSSASSSSSHSSESSSESESSHSHESSSESSSSASSESESSHSSSESSSSSSEESESI“OEEE 
IREREAD ,ACK,OPP=1 COMMAND 


a 
FSSASSSSHSASSSHASSASASSESASSEHEESSHESESHESSSESESSEEESESESSESEEAESESD 


176%: MOV 
178%: 


1808: 


1908: 


#141001, T26PK3 


@T26PK3,R4 
Ra. Ts - TSOBCRS) 


TSSRCRS 
htt R2 


Tad 
FATFLG 
ERRNO , T26WDE , PKTSSR 


T26BFR+14,R1 
R1,R2 

@B1TO,R2 

R1,R2 

190% 

FATFLG 

ERRNO, T26NEF ,EXPREC 
T26CNU 


26% 


FATFLG,@15. 
999 
PC ..CKDROP 


PC, TSTLOOP 
163% 


sREREAD ,ACK,OPP=1 COMMAND 
sSET UP_R4 WITH PACKET ADDRESS 
OMMANOD 


s ISSUE 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
+SET UP EXPECTED 

s ARE ab aes 


SEQ 0275 


BR, IF 

sBUMP COUNT 

3TSSR INCORRECT AFTER — 
- WORD 
- WORD 
- WORD 

;LOOP IF SELECTED 
TRAP 

;GET XST3 STATUS WORD 

3SET UP EXPECTED 

3SET THE NEF BIT 

sARE THEY EQUAL 

;8R, IF EQUAL (GOOD) 

sBUMP COUNT 

sNEF SHOULD BE SET 
TRAP 
- WORD 
. WORD 
- WORD 
TRAP 


sSET SWITCH THE OTHER WAY 
s8R, IF FIRST TIME T 


HROUGH 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


i: 
TRAP 
3IS ERROR COUNT AT 25 
ORY IF LESS THAN 25 
TO OROP THE UNIT 


+00 WE NEED TO ITERATE TEST 
IF NO LOOP REQUIRED 
+ PRECUTE AGAIN 


CsESuB 


= 
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| SEQ 0276 
TEST 6: REREADS 
727 163%: 
| - $3898 338783 EXIT TST ;ALL DONE THIS TEST 
072764 104432 TRAP  CSEXIT 
072766 003116 .WORD 10102-. 
j 13011 
| 130i¢ s¢ 
13013 }LOCAL STORAGE FOR THIS TEST | 
g° 
13016 072770 .BLKB :10-<. - TSV2E7> 
13018 073000 T26PACKET : ;COMMAND PACKET FOR TEST 
13019 073000 014004 .WORD 14004 ;WRITE CHARACTERISTICS COMMAND, WITH CVC*1, ACK 
3020 073002 073010 "WORD  T26DATA ;ADORESS OF CHARACTERISTICS BLOCK 
13021 073004 “wORD O 
13022 073006 000012 “WORD 10. ;STARTING VALUE OF BLOCK SIZE 
13023 073010 T26DATA: ;CHARACTERISTICS DATA BLOCK 
13024 073010 073022 .WORD  T26BFR ;ADDRESS OF MESSAGE BUFFER 
13025 073012 000000 "WORD O 
13026 073014 000024 "WwORD 20. ;LENGTH OF MESSAGE BUFFER 
13027 073016 00000 "WORD 0 
13028 073020 000000 T260SW: :WORD 0 ;SELECT DRIVE 0 
13029 073022 T268FR: .BLKW 25. iMESSAGE BUFFER 
f 
13031 ;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
3 
13034 073104 .BLKB :10-«<. -TSV2E7> 
13036 073110 T26PK2: 
13037 073110 100006 .WORD 100006 ;WRITE SUB SYS MEM COMMAND, AND ACK 
13038 073112 073140 "wORD T268F2 ;ADORESS OF SELECT BLOCK DATA 
13039 073114 000000 "WORD 0 
13040 073116 000006 “WORD 6. ;SIZE OF DATA PACKET 
13043 073120 .BLKB  -:10-<. -TSV2E7> 
13045 073130 T26PK3: 
073130 140005 WORD 140005 ;REREAD COMMAND, CVC=1 AND ACK 
13047 073132 T26RB: 
13048 073132 003114 T26WB: .WORD FREE ;ADDRESS OF WRITE BUFFER 
13049 073134 000000 "WORD 0 
13050 073136 000000 T26SZ: [WORD 0 ;SIZE OF BUFFER (EXTENT) 
13051 EVEN 
13052 3 
13053 : 
13054 F 
13055 073140 26BF2: 
1 073140 010 T268S0: .BYTE 10 ;BSELO AREA 
13057 073141 200 126851: .BYTE 200 ;BSEL1 AREA 
1 073142 000000 T26S2: | :WORD 0 ;SEL 2 AREA 
13059 073144 000000 T2683: .WORD 0 ;DATA AREA 
13060 3 
13061 : 
13062 EVEN 
13063 ;TAPE MOTION PACKET COMMAND VALUES 
13065 073146 140001 T26RN: .WORD 140001 ;READ DATA 
13066 073150 141401 "WORD 141401 ;REREAD NEXT OPP=0 
13067 073152 161401 "WORD 161401 ;REREAD NEXT OPP=1 
13068 073154 177777 "WORD 177777 ;END OF DATA 
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13070 

13071 073156 000000 T26CNT: .WORD 0 :TAPE RECORD COUNTER STORAGE AREA 
13072 073160 000000 T26CNU: :WORD 0 TAPE RECORD COUNTER STORAGE AREA 
13074 073162 000000 T26RSZ: .WORD 0 RECORD STORAGE SIZE AREA 

13076 075164 000000 T26DLY: .WORD 0 ;DELAY COUNTER AREA 

13078 

13079 se 

13080 iLOCAL TEXT MESSAGES FOR TEST 

13081 - 


| 
| 

3083 ae 

13084 073166 124 141 160 T26WNG: .ASCIZ ‘T Position Incorrect A°ter REREAD Previous (OPP=1)' 

13085 073254 122 105 122 T26NEF: .ASCIZ ‘REREAD PREVIOUS, At BOT, re xe To Set NEF (XSTO)’ 

13086 073336 124 123 123 T26ROF: .ASCIZ ‘TSSR Incorrect After READ DATA Command’ 

13087 073405 122 105 122 T26RRF: .ASCIZ ‘REREAD Previous (Spece Reverse, Read Forward) Command Fai led’ 

122 105 122 T26RRG: .ASCIZ ‘REREAD Previous (Read Reverse, Space Forward) Command Failed’ 


13088 073502 
13089 073577 120 117 123 T26SC: :ASCIZ ‘POSITION (Space Command) Feiled, TSSR Not Correct’ 
3090 07366 ASCIZ ‘RI VERSE INTO BOT’ 


102 
13091 073731 124 123 123 T26WOF: .ASCIZ ‘TSSR Not Correct After Illegel Mode Bits Set’ 
13092 074006 111 154 154 T26L0Q@: .ASCIZ Renehe Cc Mode Bits, noceee © To Set 1LC Bi t In XSTO' 
13093 074067 122 105 122 T26SSR: .ASCIZ ‘REREAD COMMAND Not meg 5 
13094 074123 124 123 123 T26WDE: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command’ 
13095 074175 124 141 160 T26B80T: .ASCIZ ‘Tepe Not At BOT After i Commend’ 
13096 074242 104 141 164 T260TA: .ASCIZ ‘Date Written To T ve ROT To Date Read From Tape’ 
13097 074330 122 105 122 T26EOT: .ASCIZ * REREAD DATA OVER EOT CAVE TAPE STATUS ALERT’ 
130986 074407 124 123 123 T26TM: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND Reject’ 
13099 074464 122 145 167 T26RWN: .ASCIZ ‘Rewind (POSITION) Commend oe Accepted’ 
13100 074533 122 101 115 T26RNC: .ASCIZ ‘RAM Error, Correct Data Pattern Not In Ram’ 
13101 074606 124 123 123 T26AM3: .ASCIZ ‘TSSR Init. Feiled After REREAD COMMAND’ 
13102 074655 104 162 151 T260FL: .ASCIZ ‘Drive 7 Select Failed To Set “OFL” In TSSR’ 
13103 074730 124 123 123 T26WOD: .ASCIZ ‘TSSR Not Correct After REREAD DATA Commend. SWB Bit Set’ 
13104 075020 124 123 123 T26wOC: AeeTs ‘TSSR Not Correct After REREAD DATA Commend’ 


13105 075073 103 126 103 T26VCK: .ASC ‘CVC Set, Didn'‘t Reset VCK In necsege Buffer’ 

13106 075146 124 123 102 T26BA: .ASCIZ ‘TSBA Not Correct After REREAD DATA Command’ 

13107 075221 127 122 111 T26WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
13108 075310 122 145 141 T26LON: .ASCIZ ‘Reading Long Record Failed jo Set RLL Bit In XSTO’ 
13109 075372 122 145 141 T26LOP: .ASCIZ ‘Reading L Record Failed To Set RLS Bit In XSTO’ 
13110 075454 122 145 163 T26PBP: .ASCIZ ‘Residual Byte Count Incorrect After Short Record Read’ 
13111 075542 122 145 141 T26TRL: .ASCIZ ‘Readi Lene Record Failed To Give Tape Status Alert’ 
13112 075630 104 143 164 T26NEQ: .ASCIZ "Bate REREAD From Tepe Not Correct, After SWB=1' 

13113 075707 122 145 162 TST26I0: ASCIZ ‘Rereads’ 

13114 .EVEN 

isile ta 

13117 } ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

13118 iWRITE SUBSYSTEM MEMORY COMMAND 

13119 3 

13120 3° 

13121 

13122 075720 T26REST: 

13123 075720 SAVREG ssave THE REGISTERS 

13128 075724 012701 073000 MOV @T26PACKET ,R1 sSTART OF THE PACKET 

13125 075730 012721 140004 MOV #140004 ,,(R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, CVC=1 
13126 075734 012721 073010 MOV @T26DATA, (R1)+ sADDRESS OF CHARAISTICS DATA BLOCK 





| Test 6: REREADS 


13127 075740 
13128 075742 
29 46 


13175 

13176 076106 
076106 

13177 076106 

13178 076114 


13179 076120 
13184 076124 


012737 
37 
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000012 
073022 
000024 


000030 
177777 
000000 


073110 
140006 
073140 
000006 
073140 


073130 


105743 
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073022 64%: 


002170 


T26RT2: 


T26RTS: 


3¢ 


R 
ENDTST 


24. .R2 

#177777, T26BFRCR2) 
-C(R2) 

R2,00 

64% 
PC 


@T26PK2,R1 
#140006, (R1)+ 
@T26BF2,(R1)+ 
CR1i)+ 
#6.,CR1)+ 


sEXTENDED ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE ZERO (0) 

NUMBER OF LOCATIONS TO BE CLEARED 
sALL ONES TO MESSAGE BUFFER 

iNEXT LOCATION 

sCHECK FOR END OF L 
sKEEP GOING UNTIL 
sRETURN 


sSAVE_THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK,CVC=1, 
sADDRESS OF DATA BLOCK 

sEXTENDED ADDRESS 

s;SIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 


sEXTENDED ADDRESS 
;SIZE OF DATA BLOCK IN BYTES 
sRETURN 


L10102: 
TRAP 


-SBTTL TEST 7: WRITE DATA RETRY 


STHIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


THE TEST CONSISTS OF THE FOLLOWING 5 SUSTESTS 
H 


@EPRT2, EPRTSW 
KTENABL 4 


Cc, KTOF 
@TS$T271D,RO 


T?: 
s SECONDARY “ee MESSAGE 
11 BACK OFF IF THERE 
sASCII MESSAGE TO IDENTIFY TEST 


SEQ 0278 


CsETST 





! 
i 
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TEST 7: WRITE DATA RETRY 

13185 076130 004737 016600 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 

13186 076134 012737 000005 002206 MOV @5,LOOPCNT sPERFORM S ITERATIONS 

tise 076142 005037 103006 CLR TOTCN T ;CLEAR TAPE RECORD COUNTER 

%¢ 

13189 3 

13190 sTEST 7, SUBTEST 1 

T3192 

13193 i VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 

13194 sTHE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 

13195 | TERMINATION WITH THE NON-EXECUTABLE FUNCTION (NEF) 

13196 sERROR BIT 1 ST. 

13197 3 

13198 3 

13199 3- 

13200 

13201 076146 T27LO0P : 

13202 076146 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
076146 T7.1: 
076146 104402 TRAP csBsuB 

13203 076150 004737 105764 JSR PC, T27REST sSET COMMAND PACKET 

13204 076154 004737 106056 JSR PC, T27RT2 iSET UP pA COMMAND PACKET 

13205 076160 004737 106120 JSR PC, T27RT3' 3SET UP OTHER COMMAND PACKET 

13206 076164 012737 176750 103012 MOV #65000 -»tT270LY ;SET UP DELAY COUNTER 

13307 076172 005037 103006 CLR T27CNT ;CLEAR COUNTER 

Heat PRMRAARAERAKKAREKRERARKARARAKRAASCKSAAARHAARARKAREHRAAARARAHRERERHAHSAKEERH 

i ; : 

13313 sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

: ' 

cid PRAHA EEKAARREAARAARERASEAAKHAAHKAEARHRALSRARRAREASARKEKHERSEARERKRERESS 

1321 

13215 076176 004737 016064 108: JSR PC ,SOFINIT 300 INITIALIZE ON CONTROLLER 

413216 076202 103426 BCS 20$ ;8R IF INIT WAS OK 

13217 076204 DELAY 250 sDELAY ABOUT .25 SEC 
076204 012727 000250 MOV #250, (PC )+ 
076210 000000 -WORD O 
076212 013727 002116 MOV LSOLY,.CPC)+ 
076216 000000 . WORD 
076220 005367 177772 DEC -6(PC) 
076224 001375 BNE... - 
076226 005367 177756 J DEC -22(PC) 
076232 001367 BNE --20 

13218 076234 337 103012 DEC T270LY sBUMP COUNTER 

13219 076240 001356 BNE 10% :8R, IF COUNTER NOT DONE 

13220 076242 005237 002212 INC FATFLG ; BUMP COUNT 

13224 076246 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

13225 076250 ERROF ERRNO, SFIERR,SFIMSG i FATAL ERROR TSSR WAS NOT OK 
076250 1 TRAP CsERDF 
076252 001275 .WORD 701 
076254 00 .WORD SFIERR 
076256 012124 .WORD SFIMSG 

13226 076260 013737 002172 102650 20%: MOV UNITN, T270SW sSET UP DRIVE NUMBER 

Eas 44 076266 012704 102630 MOV @T27PACKET ,.R4 sSUBROUTINE NEEDS PACKET ADDRESS 

13229 PRO RERREHEARAEEARHEAEHREAKREAKEEARKEEKKEKAKAHERAKREAAARRAHAEKKARSESSSHARH 


13230 ; 





| 
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TEST 7: WRITE DATA RETRY 


13278 076402 
13279 076410 
13280 
13261 


013701 
02 


104406 
012737 
013737 


010752 
002212 


011104 


002212 


000400 102766 
003114 102762 
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sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
PRRMEAAEREREARAKHARAAEEHEAARAMAHAAAMEAEREREAR EATERS EAEDSERERAAHAHEAHAAKRE HER 


JSR PC, ,WRTCHR sISSUE WRITE CHARACTERISTICS 

BcsS 25% 38R, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sSAVE_ CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC ron 
- WORD 
- WORD 
WORD 

25%: CKLOOP sLOOP IF SELECTED 

TRAP 


{ PRREASAESEESSEESEEESESESEESEEESEEEEEEEEEEEEEEEEEEEEDEEEOEEEEDEEEEE 
* 
sISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


3 
PRORAEEEAHAREEREREERAEERAREEMABERAKAAHMEERAGHALHARECKHAEEREAREDALREB 


JSR PC REWIND sCALL TAPE REWIND COMMAND 
BCS 303 F NO PROBLEM 
MOV RO,R4 ert ip REWIND PACKET ADDRESS 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T27RWN,PKTSSR ;REWIND NOT ACCEPTED as 
. WORD 
[WORD 
“WORD 
308: CKLOOP ;LOOP IF SELECTED 
TRAP 


{PARES SRESSEERESAEEEEEESEESEEEEEESERESEESEEEDEEDEEEDDEDEEEDEEEEEEES 
£ 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERC (XSTO) 


3 
FRASER RAREESEAESAEEAARHARKEKEKAAEAAEASHERSEKAEAKESEAAAAEHHKEAKEEK SRA 


MOV T27BER+6, R1 ;PICK UP XSTO 
MOV R1,R 3SET UP EXPECTED 
BIS @B81T1,R2 3SET BOT BIT IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 40$ iBR, IF EQUAL COK) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T27B0T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
. WORD 
"WORD 
WORD 
408: CKLOOP ;LOOP IF SELECTED ae 
MOV 0256. ,T27SZ ;SET UP RECORD SIZE 
MOV FREE. T27WB ;ADDRESS OF WRITE BUFFER 


PRs SAGE GOSSAHAARALSHRREERERARRRAMRAEGHKMKRLRALHRSRCARARREADRERAAHRAS 


SEQ 0260 


CSERHRO 
704 


T2780T 
EXPREC 


CsCLPi 
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SEQ 0281 
TEST 7: WRITE DATA RETRY | 
132 3 
13288 ;WRITE DATA RETRY,ACK,CVC*1 COMMAND | 
: ! 
+3se5 3 SROESSASAASSSASSASSAASSSSSSAAASSSSESASSSSESESESSESESESESESASSESSESEEE 
132867 076416 012737 141005 102760 MOV #141005, T27PK3 ;WRITE DATA RETRY,ACK,CVC=1 COMMAND 
1 07 012704 102760 MOV @T27PK3.R4 :SET UP R4& WITH PACKET ADDRESS 
13289 076430 010465 000000 MOV R4, TSDBCRS) sISSUE COMMAND 
13290 076434 004737 016340 JSR PC. WAITE sWAIT FOR SSR TO SET 
13291 07 016501 000002 MOV TSSR(RS :GET TSSR CONTENTS 
13292 076444 012702 100206 MOV psn iscsbrt1!eIT2, R2  ;SET UP EXPECTED 
13293 076450 020102 CMP R1,R2 TARE T 
13294 076452 001406 BEQ 753 :6R, IF OK 
076454 005237 002212 INC FATFLG : OUNT 
13299 076460 ERRHRD ERRNO, T27WDE,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
076460 104456 TRAP  CSERHRD 
076462 001303 .WORD 705 
076464 103572 "WORD T27WDE 
076466 C12136 . PKTSSR 
13300 076470 75%:  CKLOOP ;LOOP IF SELECTED 
seals 076470 104406 TRAP CSCLP1 
Hata SMARERERARAHKEAAAEEAERKEKAAEHEAERHAAAARHERAGKARSLRERAEAMEDRHREAKESE RSH DOH 
D 
13308 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
3 
13308 3 SSSSSSHHSSAAESSSEESESESKESESKEKEEKSEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
13308 076472 013701 102660 MOV T27BFR+6,R1 :GET XSTO STATUS WORD 
13309 076476 010102 MOV R1,R 3SET UP EXPECTED 
13310 076500 052702 002000 BIS @81T10,R2 sSET THE NEF BIT 
13311 076504 020102 CMP R1.R2 ;ARE THEY EQUAL 
13312 076 001406 BEQ 3BR, IF EQUAL (GOOD) 
13313 076510 005237 002212 INC FATFLG 8 OUN 
13317 076514 ERRHRD ERRNO, 127NEF ,EXPREC ;NEF SHOULD BE SET 
076514 104456 TRAP §CSERHRD 
076516 001302 .WORD 706 
076520 105331 “WORD T27NEF 
076522 015564 "WORD EXPREC 
13318 076524 170%:  CKLOOP 
076524 104406 TRAP CSCLP1 
13319 076526 ENDSUB 
076526 110123: 
076526 1 TRAP CSESUB 
13320 076530 023727 002212 000017 CMP FATFLG, #15. :IS ERROR COUNT AT 25 
13321 076536 10 BLO :8R, IF LESS THAN 25 
13322 076 004737 017272 JSR PC, CKDROP ;TRY TO OROP THE UNIT 
13323 076544 999%: 
13324 
13325 3° 
13326 3 
13327 sTEST 7, SUBTEST 2 
13329 IVERIFIES THAT WRITE DATA RETRY COMMAND ISSUED WHILE 
13330 ;THE TAPE IS POSITIONED BEFORE THE FIRST RECORD ON 
13331 }TAPE (BUT NOT AT BOT) RESULTS IN TAPE US ALERT 
13332 sTERMINATION, WITH THE REVERSE INTO BOT STRIOD STATUS 
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SEQ 0282 
TEST 7: WRITE DATA RETRY 
13333 sERROR BIT SET. 
13334 3 i 
13335 
13336 : 
13337 ‘- | 
133368 076544 BGNSUB 3>>>>>>2>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
076544 17.2: 
076544 104402 TRAP =: C#8SUB 
13339 076546 004737 105764 JSR PC, T27REST sSET COMMAND PACKET 
13340 076552 004737 106056 JSR PC, T27RT2 sSET UP OTHER COMMAND PACKET 
13541 076556 004737 106120 JSR PC. T27RTS 3SET UP OTHER COMMAND PACKET 
Ha 3 SESEHSSSSASSESSHSSSSSESESSAASSSSESSSSSSSSESSHSSSEESSSEHSESEESEEEEE 
13345 }ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
Hart - SESHSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSESESSSESSESSSSSESSESESESEEEEEEEEEEE 
13349 076562 C04737 016064 JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
13350 076566 103407 Bcs 20% :6R IF INIT WAS OK 
13351 076570 005237 002212 INC FATFLG :BUMP COUNT 
13355 076574 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
56 076576 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
076576 104455 T CsEROF 
0 001303 .WORD 707 
076602 003650 “WORD SFIERR 
076604 012124 :WORD SFIMSG 
13357 076606 013737 002172 102650 20%: MOV UNITN, T270SW :SET UP DRIVE NUMBER 
13358 076614 012704 102630 MOV @T27PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 
Hitt PeRORHAHREKEKARERSHAAHASKEEARESERADHAAAASELHAEKKAEHE VARESE RAEHEHAEGAD 
13362 IWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
13385 - SESESSSSESSSESEESESESESEKEESSESESESESSAEEEESESESSESEEEESESEEEESESE 
13366 076620 004737 010752 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
13367 076624 103407 Bcs 25% 36R, IF COMMAND ISSUED OK 
13368 076626 005237 002212 INC FATFLG sBUMP COUN 
13372 076632 010001 MOV RO,R1 3SAVE CONTENTS OF TSSR 
13373 076634 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
076634 104456 TRAP § CSERHRO 
076636 001304 .WORD 708 
076640 005054 "WORD WRTMSG 
076642 012124 “WORD SFIMSG 
13374 076644 25%: CKLOOP ;LOOP IF SELECTED 
om 076644 104406 TRAP = CSCLP1 
13378 PREGKHKREPHMAKRSHHREASASHEREESEREBLARHHSAS SALE ABARARHARHHAHHAARHESEEESS 
13378 TISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
Hitt : 0066668666686 0666666646 666066666686 6666668666646 6686866688868666464666686 
13382 076646 004737 011104 JSR PC REWIND :CALL TAPE REWIND COMMAND 
13383 076652 103411 Bcs 26% ;6R, IF NO PROBLEM 
13384 076654 010004 MOV RO,R4 3SET UP REWIND PACKET ADORESS 





TEST 7: WRITE 


13385 076656 
13386 076662 


9 4& 
13391 076676 
076676 
13392 076700 
13393 076704 
13394 
13395 
13396 
13397 
13396 
13399 


13400 
13401 oreris 





| 
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DATA RETRY 


016504 
00S23 
104456 


001305 
104165 
012136 


012703 
013737 


000002 
002212 


000400 
003114 


002212 


MACRO YOS.02 Monday 16-Sep-85 13:41 Pege 77-179 


MOV TSSRCRS).R1 
INC FATFL 
ERRHRO ERRNO, T27RWN,PKTSSR 


sGET TSSR CONTENTS 
sBUMP COUNT 
sREWIND NOT ACCEPTED 


TRAP 
. WORD 
268: CKLOOP ;LOOP IF SELECTED oan 
MOV 0256. ,R3 STARTING RECORD SIZE 
102762 MOV FREE. 1278 ;STARTING WRITE BUFFER ADDRESS 
HSER ARAOEAAEREAREEASESHAKHAASAAROEKLARACHLAHEAREHEEHHEOHSSESEEHHSOEHSS 
WRITE DATA,CVC*1,ACK COMMAND 
t edceesescoscosccsccccacescessoscesccscssoscossoscesoosessosseseess 
102760 MOV @140005, T27PK3 sWRITE DATA. CVC=3 ACK COMMAND 
MOV @T27PK3.R4 3SET UP R4 WITH PACKET ADORESS 
MOV 3.12782 SET UP RECORD SIZE IN PACKET 
MOV - TSDBCRS) sISSUE COMMAND 
JSR WAIT FOR SSR TO SET 
MOV TSSRCRS) RL :GET TSSR CONTENTS 
MOV @SSR.R2 3SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 28% 30R, IF OK 


INC FATFLG 
ERRHRD ERRNO, WRTERR,PKTSSR 
> WORD 
“WORD 
TRAP 
,RAOHEEAEEREHRESARSAHEAKAKAGSHSDESALESSESEAKSESEARHHEHAEHEKAASHAASAHLHARASSE 
}ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


8 
{PABA ERG EEREGAREESARESEHAAEMERLEALREARELAKLORAASHKEBDERHDEEEDALSAARLES 


28%; CKLOOP sLOOP IF SELECTED 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
acs $ ;6R, IF NO PROBLEM 
MOV TSSR(RS),R1 :GET TSSR CONTENTS 
MOV 3SET UP REWIND PACKET ADDRESS 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T27RWN,PKTSSR ;REWIND NOT ACCEPTED ce 
oe 
“WORD 
WORD 
30%:  CKLOOP ;LOOP IF SELECTED 
TRAP 


pPeEREHEKEHAOMEARESSALAEADNHSLADESESAHAMSHEHEARCHEREGHRARSREKBELELACHS 
3 


sBUMP COUNT 
sTSSR INCORRECT AFTER — om 


CSERHRO 
710 
WRTERR 
PKTSSR 
CsCLP1 


! 


| TSV7 - HARDWARE TESTS 1-8 
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1345 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) | 
3 
Htte4 : AEKERERAAAKESAROAEKAAARESOAAKAAHRAHERERAHAKHEEEEREDADEASEHTASAESEESE ' 
i 
i 077 013701 102660 T27BFR+6,R1 sPICK UP xSTO 
13441 077030 010102 MOV T UP EXPECTED 
077 oss702 000002 BIS @8iT1,R2 1SET BOT BIT _IN EXPECTED 
0 020102 CMP R1,R2 ;D0ES EXP = REC’D 
0 001406 BEQ 40 38R, IF EQUAL (OK) 
077042 37 002212 INC FATFLG :BUMP C 
13449 077046 ERRHRD ERRNO, T27B0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
077046 104456 TRAP  CSERHRO 
077050 001310 . WORD 
077052 103661 ‘WORD 12780T 
077054 015564 “WORD 
13450 077056 40%:  CKLOOP ;LOOP IF SELECTED 
nates 077 104406 TRAP  CSCLP1 
1% PSP SGSAR KS HeLOAHSOSAKKOSOAOSEASEBAKRESHASHSHSASHOERSLAS LADLASLABHRS 
3 
134 sISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
13435 18IT 15 SETS DIRECTION - O-FORWARD  1*REVERSE 
$ 
Hearty PFAAEASHHEARSESSAREEAAEALEAAEAEHRREKSASHASHSHASKEASHEHSSLSARSRRASHASEBES 
13459 077060 012703 1 MOV #1.R3 :PARAMETER SPACE FORWARD 1 RECORD 
1 077 004737 010556 JSR PC. SPACE sCALL SPACE RECORDS ROUTINE 
13461 077070 103413 Bcs 50% :6R, IF NO ERRORS 
1 077072 016501 000002 v TSSR(RS),R1 sGET TSSR CONTENTS 
1 077076 012702 000200 MOV @SSR,.R2 SET UP EXPECTED 
1 077102 010004 MOV RO,R4S 3SET UP REWIND PACKET ADDRESS 
i 077104 005237 002212 INC FATFLG sBUMP COUNT 
13469 077110 ERRHRD ERRNO, T27SCF ,.PKTSSR SPACE RECORDS COMMAND FAILED 
077 1044 TRAP  CSERHRD 
077 001311 .WORD 713 
077 1 "WORD T27SCF 
077 012136 "WORD PKTSSR 
13470 077120 50¢:  CKLOOP ;LOOP IF SELECTED 
coat 077 104406 TRAP  CSCLP1 
Erte ; RAKSHA OSKEHARKAREAKHAHAASESAAKKESHAALHALAHAALKAKAAKASERARARAHARKRABAASEEE 
1 
13474 HISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
13475 ;81T 15 SETS DIRECTION - O=FORWARD  1*REVERSE 
$ 
Hert PEGHOAKSHAGOHASHESSALHASHSKEASSAGHARERAKESASRIEHAARASSSHSESCAKSEEAHAREH 
i 
13479 077122 012703 100001 MOV #100001, ;PARAMETER SPACE REVERSE 1 RECORD 
13480 077126 004737 010556 JSR Space :CALL SPACE RECORDS ROUTINE 
13481 077132 103413 BCS 653 36R, IF NO ERRORS 
13482 077134 016501 000002 Vv TSSR(RS),R1 sGET TSSR CONTENTS 
13483 077140 012702 000200 MOV @S5SR.R2 3SET UP EXPECTED 
13484 077144 010004 MOV RO,R4 3SET UP REWIND PACKET ADORESS 
13485 077146 005237 002212 INC FATFLG sBUMP COUNT 
13489 077152 ERRHRD ERRNO, T27SCF,PKTSSR sSPACE RECORDS COMMAND FAILED 
077152 1044 TRAP  CSERHKO 
077154 001312 : 714 
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SEQ 0285 
TEST 7: WRITE DATA RETRY 
077156 7 .WORD T27SCF 
077160 ren H [WORD PKTSSR 
13490 077162 60%:  CKLOOP sLOOP IF SELECTED 
077 104406 TRAP - CSCLP1 
13491 077164 013737 003114 102762 Mov FREE, T27R8 sADORESS OF BUFFER 
teens SSCRsSebSsGSsst DOLGCAGSSEOASSEOAEEAASOSAHKESESEHSSLOROEAKRADRASCADERESSADGL 
is 
13495 sWRITE DATA RETRY.ACK,CVC=1 COMMAND 
i 
te JACESHLESOHSSSKELAEGEHOHEEEENGEESSABKOEAEKESSEOESHESAOHEKESASSOSASSESE 
1 077172 012737 141005 102760 Mov #141005, T27PK3 sWRITE DATA RETRY,ACK,.CVC=1 COMMAND 
012737 000400 102766 HOV . T2782 :SET UP THE SIZE OF RECORD 
O77206 012704 102760 MOV OT27PK3 RO 3SET UP R4 WITH PACKET ADORESS 
12 010465 MoV R4,TSDBCRS) 1 ISSUE COMMAND 
1 077216 004737 016340 JSR WAITF WAT FOR SSR TO SET 
077 016501 HOV TSSR(RS),_R :GET TSSR 
i 077286 €12702 100204 Mov ossniscséite, R2 3SET UP EXPECTED TAPE STATUS ALERT 
1 102 CMP R1,R2 sARE THEY EQUAL 
13507 077234 001406 6EQ :0R, IF OK 
13508 077 37 002212 INC FATFLG sBUMP 
13512 077242 ERRHRD ERRNO, T27TSA,PKTSSR sTSSR INCORRECT AFTER READ DATA 
O7 7248 10 56 TRAP sERHRO 
r) 313 .woRD 715 
077246 [WORD T27TSA 
077250 012136 [WORD PKT 
13513 077232 180%:  CKLOOP sLOOP IF SELECTED 
104406 TRAP =s-« CSCL P12 
13514 077254 013701 102666 Mov T278FR+14,R1 :GET XST3 STATUS WORD 
1351S 077260 910108 MOV sSET UP EXPECTED 
13516 077262 000001 eIs @6iTO,R2 3SET THE RIB BIT 
1351 o77266 020102 ci R1,R2 3ARE THEY EQUAL 
13518 0 001406 6EQ 1908 :8R, IF EQUAL (GOUD) 
13519 0 7 002212 INC FATFLG ;BUMP COUNT 
1 r) ERRHRO ERRNO, T27NEF ,EXPREC sNEF SHOULD BE SET 
r) 10e4s¢ TRAP sERHRO 
r) 1314 .WORD 716 
9 103351 {WORD Te7er 
13524 077306 _— 190%:  CKLOOP a 
077306 104406 TRAP —s-« CSL P22 
1382S pat tg ENDSUB 3>>>>>>2>>>>>> END SUBTEST >>>>>>>>>>>> 
o77310 108403 aE eas - eee 
1 orrsia 303707 002212 000017 CMP FATFLG,@15. sIS ERROR COUNT AT = 
r) 93402 BLO 9998 sOR, IF LESS THAN 
077322 boars 017272 JSR PC ,CKDROP sTRY TO OROP THE UNIT 
077326 9998: 
s¢ 
é 
TEST 7, SUBTEST 3 
i 1 VERIFIE THar A WRITE DATA RETRY COMMAND WITH SuB-0 
i S$ PROPERLY WRITES CORRECT QATA G A ON TAPE 
i (ome un WRITTEN RECORD IS READ AND CHECKED). VARIOUS 
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TEST 7: WRITE DATA RETRY 


SEQ 0286 


135 sBYTE COUNTS AND DATA PATTERNS ARE USED. 

13539 3 

13540 : ' 

13541 3 | 

| 13542 i- 

13543 077326 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
077326 77.3: 
077326 104402 TRAP C$6SUB 

13544 077330 004737 105764 JSR PC, T27REST T COMMAND PACKET 

13545 077334 004737 106056 JSR PC,T27RT2 FT UP OTHER COMMAND PACKET 

i eeee 077340 004737 106120 JSR PC, TS7RTS :SET UP OTHER COMMAND PACKET 

Eat SPRARAAEAEAEEESARERSEEEEESESARESAESESEESEAEEESEAEEEEEEESEESEESEEEESESEE 

Hy 

Hoot sISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

Ha | ceeascececescssasescesescccasecsaseccesasecsesossoseseseeceseocese 

13554 077344 C04737 016064 JSR PC,SOFINIT 300 INITIALIZE ON CONTROLLER 

13555 077350 103407 BCS 20% sB8R IF INIT WAS OK 

13556 077352 005237 002212 INC FATFLG sBUMP COUNT 

13560 077356 010001 MOV RO,R1 ; CONTENTS OF TSSR REGISTER 

13561 077360 ERROF ERRNO, SFIERR,SFIMSG SFATAL ERROR TSSR WAS NOT OK 
077360 104455 TRAP CSEROF 
077362 001315 -WORD 717 
077364 3650 . WORD SFIERR 
077366 012124 . WORD 

13562 077370 013737 002172 102650 20%: MOV UNITN, T270SW 3SET UP UNIT NUMBER IN PACKET 

1oees 077376 012704 102630 MOV @T27PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

itees FSCASEASEEASEESEEEEEESEEEEEEEEEEEEEEEEEEEDEEEEEEEEEEEEEEEEEEEEDREEED 

ieeee WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

1338) : SESSEAAASEREEASSEEEASEEAESEEEEAESEEEEEEEEEEEEEEEESEEEEESEEESEEEEEEEESE 

13571 077402 004737 010752 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

13572 077406 103407 : bcs 23% :68R, IF COMMAND ISSUED OK 

13573 077410 005237 002212 INC FATFLG sBUMP COUNT 

13577 077414 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

13578 077416 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
077416 104456 TRAP CSERHRD 
077420 001316 - WORD 718 
077422 005054 . WORD WRTMSG 
077424 012124 . WORD SFIMSG 

13579 077426 23%: CKLOOP ;LOOP IF SELECTED 

13 077426 104406 TRAP CSCLP1 

teaes JORHESAESESASEESESESESEESEEEEEEEESEEEEEOEEEEEOEEOEEEEOEEEEEOEOEEOEEEEODE 

tsses } ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

pitt | eececesnccasesccccssscesesnacescccesesccsescesesccsesescosesoesese 

13587 077430 004737 011104 JSR PC ,REWIND ;CALL Mga REWIND COMMAND 

13588 077434 103407 BCS 30% + NO PR 


OBLEM 
13589 077436 010004 MOV RO,R4 Set oP REWIND PACKET ADDRESS 
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| SEQ 0287 
TEST 7: WRITE DATA RETRY 
| 43590 077440 005237 002212 INC FATFLG ;BUMP COUNT 
13594 077444 ERRHRD ERRNO, T27RWN,PKTSSR ;REWIND NOT ACCEPTED 
077444 104456 RAP CSERHRO 
077446 001317 .WORD 719 
077450 104165 .WORD T27RWN 
| 077452 012136 .WORD PKTSSR 
13595 077454 308: CKLOOP ;LOOP IF SELECTED 
077454 104406 TRAP CSsCLP1 
t3ee6 3 SEAHSHSHSAAHSSASHSSSSHASSSSSSSESSSESSSSSSSHEASSSSSSSSESESEESEEESEEESHEEEESD 
o 
13599 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
4 
teeen J SHSHASASSHASASSSASSSSEASSSSESSHEHESSESESSESSESESSSSSASHSASHSSESSESSEKEEEES 
13e08 077456 013701 102660 MOV T27BFR+6,R1 sPICK UP XSTO 
13604 077462 010102 MOV R1,R2 ;SET UP EXPECTED 
13605 077464 052702 000002 BIS @81T1,R2 SET BOT BIT IN EXPECTED 
13606 077470 C20102 CMP R1,R2 EXP = REC'D 
13607 077472 001406 BEQ 408 i8R, IF EQUAL (OK) 
13608 077474 005237 002212 INC FATFLG ;BUMP 
13612 077500 ERRHRD ERRNO, T27B0T ,EXPREC TAPE NOT AT BOT AFTER REWIND 
077500 104456 CSERHRD 
077502 001320 NORD 720 
077504 103661 .WORD T2780T 
077506 015564 .WORD EXPREC 
13613 077510 403: CKLOOP ;LOOP IF SELECTED 
077510 104406 TRAP CSsCLP1 
13614 077512 012703 000024 MOV #20. .R3 sSTARTING RECORD SIZE 
13615 077516 013737 003114 102762 MOV FREE, T27W8 sSTARTING WRITE BUFFER ADDRESS 
pote PECMAREKEALKREEATEAEABAHHARHHEOKSSEHAKHAAEHARASHRERHACHEAHHSEHHLKECHEHREDD 
13618 F 
13619 ;WRITE DATA,CVC*1,ACK COMMAND 
: 
sees PRAMHKASSACAKEKHSSASKAHHSAHSAAESHAHHRSARRSEHAKREARASAHAHSEHKEHKAKADHREKO LASS 
1 
13623 077524 012737 140005 102760 65%: MOV #140005, T27°K3 ;WRITE DATA,CVC=1,ACK COMMAND 
13624 077532 01274 102760 MOV aT 270K 3,R4 3SET UP R4 WITH PACKET ADORESS 
13625 077536 010300 MOV RO sSET PATTERN IN CORRECT REGISTER 
13626 077540 004737 017512 JSR PC LPTLLMEM sFILL MEMORY WITH RECORD SIZE 
13627 077544 010337 102766 MOV R3,T27SZ sSET UP RECORD SIZE IN PACKET 
13628 077550 010465 000000 MOV R4, TSOBCRS) OMMAND 
13629 077554 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
13630 077560 016501 000002 MOV TSSR(RS),.RL :GET TSSR CONTENTS 
13631 077564 012702 000200 MOV @SSR,R2 :SET UP EXPECTED 
13632 077570 0°0102 CHP R1,R2 ;ARE THEY EQUAL 
13633 077572 001406 BEQ 80% :8R, OK 
13634 74 005237 002212 INC FATFLG ;BUMP COUNT 
13638 077600 ERRHRD ERRNO, WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE | DATA 
077600 104456 TRAP cs 
077602 001321 . WORD 21 
077604 005111 -WORD WRTERR 
012136 -WORD PKTSSR 


077606 
13639 077610 80$: CKLOOP sLOOP IF SELECTED 
077610 
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TEST 7: WRITE DATA RETRY 


Hee 


13670 077672 
13673 077676 


8 
077716 


13687 077724 
13688 077726 


013701 
010102 
02 


141005 102760 
000000 
016340 
000002 
000200 


002212 


011104 


002212 


002212 
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J SHHOSHHASSSSSSSSHHSSSHSSSSHHSSHSHSSSSHESSSSSHSSSSSSSSSSESSSHSSSSEEES 


{WRITE DATA RETRY,CVC*1,ACK COMMAND 


3 
J SHHSHSASAASASSSSSHASSSSSSAHSHSESHSSASSSSHSSSSSHSESSHSSHSESEESESESEESE 


MOV #141005 T27PKS 
MOV R4,T TSOBERS 

JSR PC: WAIT’ 

MOV TSSRCRS) RI 
MOV @SSR,R2 

CMP R1,R2 

BEQ 90% 


FATFLG 
ERRHRD ERRNO, T27WRF ,PKTSSR 


TST CR3)+ 
R 0 


sWRITE DATA RETRY,.CVC*1,ACK COMMAND 
OMMANO 


s ISSUE 
iWAIT FOR SSR TO a 
sGET TSSR CONTENT 


COUNT 
sTSSR INCORRECT AFTER aaery one RETRY 


CSERHRO 


-WORD 722 
-WORD T27WRF 
WORD PKTSSR 
CsCLP1 


sLOOP IF SELECTED 


sBUMP RECORD 7 COUNTER 
;AT 40 SIZE Y 
BR, IF MORE YRECORDS TO WRITE 


FSSSSASSSSSSSSSHS SHSSSSSHSSSHSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSESSEEE 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


a 
PRRSHHEKEAREKHEHDARESSARAGHHHSEHRSHOKHAHAAHHTEHKEEOHKASSHSECHASHSSAEHKHEHKEKEAE 


JSR PC ,REWIND 
6csS 230% 


RO,R1 
INC FATFLG 
ERRHRD ERRNO, T27RWN,EXPREC 


230%: CKLOOP 


;CALL_TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
sSAVE TSSR 


BUMP COUNT 
sREWIND NOT ACCEPTED 


sLOOP IF SELECTED 


“se =f 
D » 
& 385% 

~ 

: 


T 


PRSSKOHAHESSHOHEREAKASALASSASMAESAHRHAASHESSHKHATEAAEHAHASEHHRARHAEH TRASH 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


: 
J SSSSSSSSSSSSSSSSSSSSSHHESSSSASSEESSESSSSSESESSESESESSSESEESEEEEEESEEES 


MOV T27BFR+6,R1 
R1,R2 

BIS e6iT1.R2 
R1,R2 


FATFLG 
ERRHRD ERRNO, T27B0T ,EXPREC 


ore UP XSTO 

sSET UP _ EXPECTED 

iSET BOT IT IN EXPECTED 
sD0ES REC'D 


:BR. IF EQUAL (OK) 

; BUMP COUNT 

3; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 


SEQ 02868 


hiccdseaiiaies 
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lose 


015564 


te 


104406 
012703 
013737 


co) 
od 
~ 
ad 
3 


000024 
003114 


003114 
000024 


002212 


102762 


102760 


2408: CKLOOP 
MOV #20. ,R3 
MOV FREE, T27R8 
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S SHHSASSASHESSESHESAESESAESESESEASAESASESESASSSSSSSEESSESEHEKESEEEEESE 


;READ DATA,ACK COMMAND 


3 
J SSRESRSASHAASESESAAKAESHSHASEHSEREREEESEAAAESSSESEASEHSSSESEHSESESEEEE 


265%: MOV #100001, T27PK3 
MOV @T27PK3,R4 
MOV R3,127S2 
MOV R4, TSOBCRS) 
JSR PC, WAITF 
MOV TSSRCRS),R1 
MOV @SSR,.R2 
CMP R1,R2 
BEQ 
INC FATFLG 
ERRHRD ERRNO, RDERR,PKTSSR 
280%: CKLOOP 
MOV FREE ,.R2 
MOV R3,R4 
SUB 620. ,R4 
285%: ADD R2.R4 
CMP (R4),R3 
BEQ 90% 
MOV (R4),R1 
MOV 3,R 
INC ATF 
ERRHRD ERRNO, T270TA, EXPREC 
290%:  CKLOOP 
TST (R4)> 
SUB R2.R4 
CMP R4-R3 
BNE 285% 
TST (R36 
CHP R3, 040. 
BNE 265% 
300%:  CKLOOP 
330%: 


. .WORD 724 
“WORD T27B0T 
OOP IF SELECTED cee “opps 
sl 
TRAP  CSCLP1 
;STARTING RECORD SIZE 
;STARTING READ BUFFER ADORESS 
sREAD DATA,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 
sWAIT FOR SSR TO SET 
:GET TSSR CONTENT 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;8R, IF OK 
;BUMP COUNT 
:TSSR INCORRECT AFTER READ ADATA 
CSERHRD 
"MORO 725 
"WORD RDERR 
‘WORD PKTSSR 
;LOOP IF SELECTED 
TRAP = CSCLP1 
sGET BUFFER ADORESS 
GET RECORD SIZE 
POINT BACK TO 1ST RECORD 
:POINT TO 1ST LOC_IN BUFFER 
;DATA WRITTEN = READ 
BR. Tr DATA OK (GOOD) 
;PICK UP BAD DATA 
;SET UP EXPECTED 
3 OUN 
;DATA IN BUFFER NOT CORRECT 
TRAP § CSERHRD 
.WORD 726 
"WORD T27DTA 
"WORD EXPREC 
;LOOP IF SELECTED 
TRAP = CSCLP1 
;BUMP TO NEXT ADDRESS 
BACK TO RECORD SIZE 
3 
:8R, IF MORE DATA TO CHECK 
38 SI 


F NOT DONE YET (MORE READS) 
POOP IF SELECTED 
TRAP  C$CLP1 


SE@ 0289 


a: 
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13784 100246 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WA 


1 RAP 
100250 001327 -WORD 727 
100252 003650 - WORD = IERR 


100254 
13785 100256 013737 002172 102650 20%: MOV UNITN, T270SW ;SET UP_UNIT CORIVE) NUMBER 
13786 100264 012704 102630 MOV @T27PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


SEQ 0290 
TEST 7: WRITE DATA RETRY 
13744 100132 ENOSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> | 
100132 L10125: | 
100132 104403 TRAP Csesus ! 
13745 100134 023727 002212 000017 CMP FATFLG, #15. :IS ERROR COUNT AT 25 
13746 100142 103402 BLO 999% 3;6R,. IF LESS THAN 25 H 
13747 100144 004737 017272 JSR PC ,CKDROP sTRY TO OROP THE UNIT 
13748 100150 999%: 
13749 
37 3° 
13751 3 
13738 ‘es 7. SUBTEST 4 
13754 i VERIFIES THAT A ade DATA RETRY COMMAND WITH SWB=1 
13755 s TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 
13756 3C THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 
13757 sBYTE COUNTS AND DATA PATTERNS ARE USED. 
13758 3 
13759 3 
13760 3 
13761 s- 
13762 100150 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
100150 17.4: 
100150 104402 TRAP CsBSUB 
13763 100152 004737 105764 JSR PC, T27REST 3;SET COMMAND PACKET 
13764 100156 004737 106056 JSR PC,T27RT2] sSET UP OTHER COMMAND PACKET 
13765 100162 004737 106120 JSR PC,T27RTS 3SET UP OTHER COMMAND PACKET 
1376 100166 012737 176750 103012 MOV #65000. , T27DLY 3SET UP DELAY COUNTER 
+3768 {SSASAAEKESAEAESESESEAESEEESEASERERESESEAEEEESESEEEESESESEEEEEEEEOEEEEEERSD 
3 
1370 sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 
13776 FPPRHEAREESSEERSEASEEEESESESEEEEEEEEEEEEEEEEESEEEDEEEEEEEEEDDEREEEED 
13774 100174 004737 016064 108: JSR PC, SOFINIT 300 INITIALIZE ON CONTROLLER 
13775 100200 103426 6cs 20% ;68R IF INIT WAS OK 
13776 100202 DELAY 250 sDELAY ABOUT .25 SEC 
100202 012727 000250 MOV @250,CPC)« 
100206 000000 -WORD O 
100210 013727 002116 MOV LSOLY,.CPC)+ 
100214 000000 . WORD t¢] 
100216 005367 177772 DEC ee | PC) 
100222 001375 BNE 
100224 005367 177756 DEC *39¢PC) 
100230 001367 BNE --20 
13777 100232 005337 103012 DEC T270LY sBUMP COUNTER 
13778 100236 001356 BNE 10% 36R, IF COUNTER NOT DONE 
13779 100240 005237 0v2212 INC FATFLG ; BUMP COUNT 
13783 100244 010001 MOV RO,R1 i CONTENTS OF TSSR eee on 
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Seodinaes nts SEQ 0291 


sere {ERPAAAEESESEEEEEEESEEEEESESEEESEEEEEAREEESSSESEESSERESEEESEEESEE EES 
ety ;WRITE CHAP ACTERISTICS COMMAND (CALL TO WRTCHR) 
3792 OTT TTT TTT OTT T TTT TT TOTTTTTTOTTTTTTTTTTTTTTTTTTTT TTT TT TTT Titi TT tte 


002212 


BCS 2 
INC FATFLG 


s6R, IF C 
sBUMP COUNT 
sSAVE CONTENTS 


1 MOV RO,R1 OF TSSR 
13601 100304 ERRHRD ERRNO, WRTMSG, SFIMSG ;WRITE CHARACTERISTISC dt 
100304 104456 TRAP Cs#ERHROD 
100306 001330 -WORD 728 
100310 005054 -WORD WRTMSG 
100312 012124 -WORD  SFIMSG 
13802 100314 23%: CKLOOP sLOOP IF SELECTED 
33803 100314 104406 TRAP CsCLP1 
13804 $ CHRESEEAERESEEEEEESEEESEEREEEESEEESEEESEEDEEEDEEDEEEEEEDEEEEEEEDESE 


V ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


3 
PRA RHRERELAAAHEREARAMAEEGERRARAAEHHEARRERARARRAEAAERARKREARRHSRSKS ADH 


13810 100316 004737 011104 JSR PC, REWIND sCALL_TAPE REWIND COMMAND 
13811 100322 103411 BCS 30$ 4 IF NO PROBLEM 
1 100324 016501 000002 MOV om R1 GET TSSR CONTENTS 
13813 100330 010004 MOV mee iGET PACKET ADDRESS 
13814 100332 005237 002212 INC FLG sBUMP COUNT 
13818 100336 ERRHRD ERRNO. T27RWN,PKTSSR sREWIND NOT ACCEPTED 
100336 1044 TRAP CSERHRD 
100340 001331 -WORD 729 
100342 104165 -WORD T27RWN 
100344 012136 -WORD PKTSSR 
13819 100346 30%: CKLOOP s;LOOP IF SELECTED 
. 100346 104406 TRAP CSCLP1 
1382} {PROREERESEEEEEEEEEDEEEEDEEEEDEEEEDOEEE6060060000060060000000060080088 
3822 ; 
secs sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
; 
13825 {RRROAAEERESEEEEEESEEESEEEEREDEEEEEEEEE$O40600600006006000000000088 
1 
138627 100350 013701 102660 MOV T27BFR+6,R1 sPICK UP _XSTO 
13626 100354 010102 MOV : sSET UP EXPECTED 
100356 052702 000002 BIS #B1IT1,R2 sSET BOT BIT IN EXPECTED 
13830 100362 020102 CMP R1,R2 sDOES EXP = REC'D 
Hott rotor 001406 eoneas BEQ 40% :BR, IF EQUAL COK) 


FATFLG ;BUMP C 
ERRNO, T27B0T ,EXPREC sTAPE NOT AT BOT AFTER — 


CSERHRD 
730 

. T2780T 
-WORD EXPREC 
CsCLP1 


100400 
13837 100402 40%: 
104 
012703 


CKLOOP 
000024 MOV 


sLOOP IF SELECTED 
sSTARTING RECORD SIZE 


! 
13793 
13794 100270 004737 010752 JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 
3$ OMMAND ISSUED OK 
#20. ,R3 
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TEST 7: WRITE DATA RETRY 


SEQ 0292 


| 
13038 100410 013737 003114 102762 MOV FREE, T27WB sSTARTING WRITE BUFFER ADDRESS | 
138641 | RRASSREESESEEERESESEEEEEERERERESEESEEEEEEEEEEESEEEEEEEEEEEEEERDDESS 
ETAL 3 
teees sWRITE DATA,CVC*1,ACK COMMAND | 
3 
13003 $ PORREREEEEREEEEEEEOEEEEEEEEEEEEEE$EEEEEEEEESEEEEEEEEEEEEEEEEEEESES 
13847 100416 012737 140005 102760 65%: MOV #140005 , T27PK3 sWRITE DATA,CVC=1,ACK COMMAND 
138648 100424 012704 102760 MOV @T27PK3,R4 3SET UP R4 WITH PACKET ADORESS 
13849 100430 010300 MOV R3,RO 3SET PATTERN IN CORRECT REGISTER 
13850 100432 004737 017512 JSR PC, FILLMEM sFILL MEMORY WITH RECORD SIZE 
13851 100436 010337 102766 MOV R3,T27SZ 3SET UP RECORD SIZE IN PACKET 
13852 100442 010465 000000 MOV R4, TSOBCRS) Is Cc 
13853 100446 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
13854 100452 016501 000002 MOV TSSRCRS).R1 sGET TSSR CONTENTS 
1385S 100456 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
13856 100462 020102 CMP R1,R2 sARE THEY E 
13857 100464 C01406 BEQ 80$ 3:6R, IF OK 
13858 100466 005237 002212 INC FATFLG sBUMP COUNT 
13862 100472 ERRHRD ERRNO,WRTERR,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
100472 104456 TRAP CSERHRD 
100474 001333 -WORD 731 
100476 005111 -WORD WRTERR 
100) 012136 WORD PKTSSR 
13863 100502 80%: CKLOOP sLOOP IF SELECTED 
100502 104406 TRAP CSCLP1 
1506s } OROOOOE66400406000000006000046600066000000600660000000000000000808 
: 
ieee sWRITE DATA RETRY,ACK,SWB=1 COMMAND 
3 
15869 Wreitittriitiiii Titi ttt titi tiiititiiiitt it titi titi iii it tr titi itty 
1 
13871 100504 012737 111005 102760 MOV #111005, T27PK3 sWRITE DATA RETRY. ACK,SWB=1 COMMAND 
13872 100512 010465 000000 MOV R4, TSDBCRS) s ISSUE C 
138673 100516 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 
13874 100522 016501 000002 MOV TSSRCRS),RL 3GET TSSR CONTENTS 
13875 100526 012702 000200 MOV @SSR,R2 3SET UP EXPECTED 
13876 100532 020102 CMP R1,R2 sARE THEY EQUAL 
13877 100534 001406 BEQ 90% 36R, IF 
13878 100536 005237 002212 INC FATFLG ;BUMP COUNT 
13862 100542 ERRHRD ERRNO, T27WRF ,EXPREC :TSSR INCORRECT AFTER WRITE DATA RETRY 
100542 104456 TRAP CSERHRD 
100544 001334 -WORD 732 
100546 105566 .WORD 127WRF 
100550 015564 -WORD EXPREC 
13883 100552 90%: CKLOOP 3;LOOP IF SELECTED 
100552 104406 TRAP CSCLP1 
13884 100554 005723 TST CR3)+ sBUMP RECORD SIZE COUNTER 
13885 100556 020327 000050 CMP R3,040. sAT 40 SIZE YET 
ett +4 100562 001315 BNE 65$ ;BR, IF MORE RECORDS TO WRITE 
ssese §O8000006666666666006000006060060000000000066066660000000000006000006 
3 
13890 sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


138691 ’ 
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13894 100564 re HAY 011104 


13896 100572 016501 000002 
13898 100600 005237 002212 


13911 100616 013701 102660 
13912 010102 
052702 


13916 100634 005237 002212 
13920 


04406 
13922 100652 012703 000024 
13923 100656 013737 003114 
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FERHHAASSSASSSEHEAESSEEEEEESEEEEEASSSELESEESSSEEESSESSESSSSESEESEEEESES 


JSR PC, REWIND :CALL TAPE REWIND COMMAND 

BcS 308 ;BR, IF NO PROBLEM 

MOV TSSRCRS),RL :GET TSSR CONTENTS 

MOV RO,R4 :GET PACKET ADDRESS 

INC FATFLG a) OUNT 

ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED aad 
. WORD 
“WORD 
“WORD 

230%: CKLOOP ;LOOP IF SELECTED 

TRAP 


sPRROSEEESEAESEEEEESERESERESEESEEESEESEEEEEEEEEEOEEEEEEO8SO04808088 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


é 
PRABHAKAR HREARAKAHSESLHAARK EEDA DAGHMEAHAARKEAKARARESAEKEARRARKARHREER 


MOV T27BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP _ EXPECTED 
BIS o81T1,R2 sSET BOT ay IN EXPECTED 
CMP R1,R2 sD0ES EXP = REC'D 
BEQ 240% 3BR, IF EQUAL (OK) 
INC FATFLG H OUNT 
ERRHRD ERRNO, T27B0T ,EXPREC sTAPE NOT AT BOT AFTER —- 
- WORD 
- WORD 
- WORD 
240%: CKLOOP sLOOP IF SELECTED on 
MOV #20. ,R3 sSTARTING RECORD SIZE 
102762 MOV FREE, T27RB sSTARTING READ BUFFER ADDRESS 


J PORSASEEEEEEESEEEEEEEEEEEDEEEEEDEEEEDEEEOEEEEEEEEDEDEDEEDEEEDEDEEEE 
i 
sREAD DATA,ACK COMMAND 


3 
PRORAKEEAERHESEHESLAEERAHARKASHHRRKEAEARHKAAKKAAARKH KAKA SEHEASHEARDERESHARKKS 


102760 265%: MOV #100001 , T27PK3 sREAD DATA,ACK COMMAND 
MOV @T27PKS,.R4 sSET UP R4 WITH PACKET ADORESS 
MOV R3, T2782 sSET UP RECORD SIZE IN PACKET 
MOV 0 BB's Saeed COMMAND 
JSR PC ,WAITF sWAIT FOR SSR _ TO SET 
MOV TSSRC(RS),R1 sGET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 2808 sBR, OK 
INC FLG sBUMP COUNT 
ERRHRD ERRNO RDERR,PKTSSR sTSSR INCORRECT AFTER one pate 


CSERHRD 
734 


T27B80T 
EXPREC 


CsCiP1 


CSERHRD 
735 


SEQ 0293 
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SEQ 0294 
TEST 7: WRITE DATA RETRY | 
100740 012136 WORD PKTSSR { 
13945 100742 2808: CKLOOP ;LOO0P IF SELECTED | 
100742 104406 TRAP CSCLP1 } 
13946 100744 013702 003114 MOV FREE ,R2 sGET BUFFER ADDRESS 
13947 100750 010304 MOV R3,R4 sGET RECORD SIZE 
13946 100752 162704 000024 SUB #20. ,.R4 sPOINT BACK TO 1ST RECORD 
13949 100756 060204 265%: ADD R2,R4 sPOINT TO 1ST LOC IN BUFFER 
13950 100760 000303 SWAB R3 sSWAP BYTES SWB-1 ETC. 
13951 100762. 02140 CR4),R3 sDATA WRITTEN = READ 
13 100764 001410 BEQ 290% 3 DATA OK (GOOD) 
13953 1 011401 HOV (R4),R1 sPICK UP BAD DATA 
13954 100770 010302 MOV R3.R 3 XPECTED 
13955 100772 005237 002212 INC FATFL > 3 T 
13959 100776 ERRHRD ERRNO, T27D0TA,EXPREC sDATA IN BUFFER NOT CORRECT 
100776 104456 TRAP CSERHRD 
101000 001340 5 . WORD 736 
101002 105646 - WORD T270TA 
101004 015564 ~ WORD EXPREC 
13960 101006 2908: CKLOOP 3LOOP IF SELECTED 
101006 104406 TRAP CSCLP1i 
13961 101010 005724 TST CR4)+ sBUMP TO NEXT ADDRESS 
13962 101012 160204 SUB R2,R4 sBACK TO REC I 
13963 101014 000303 SWAB sPUT R3 BACK INTO SHAPE 
13964 101016 020403 CMP R4,R3 3 CORD YET 
13965 101020 001356 BNE 285% 36R, IF MORE DATA TO CHECK 
13966 101022 005723 TST CR3)¢ sBUMP RECORD SIZE 
13967 101024 020327 000046 R3,038 s@ONE YET 
13968 101030 001315 BNE 5 s8R, IF NOT DONE YET CMORE READS) 
13969 101032 300%: CKLOOP sLOOP IF SELECTED 
101032 104406 TRAP CSCLP1 
13970 101034 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
101034 L10126: 
101034 104403 TRAP CsEsus 
13971 101036 023727 002212 000017 CMP FATFLG,@15. 3IS ERROR COUNT AT 25 
13972 101044 103402 BLO 999% 368R, IF LESS THAN 25 
13973 101046 004737 017272 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
13974 101052 999%: 
13975 
13976 3¢ 
13977 3 
1378 sTEST 7, SUBTEST 5S 
3 
13980 sVERIFIES THAT A WRITE DATA RETRY COMMAND iS 
13961 sPERFORMING THE “ERASE” PART OF THE OPERATION BY 
Het | sPERFORMING THE FOLLOWING SERIES OF STEPS. 
e 
13984 31. THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE 
139865 3 WRITTEN WITH THE NORMAL WRITE DATA COMMAND. THIS 
13966 3 SHOULD RESULT IN RECORDS SEPARATED BY THE 
ete dd 3 STANDARD INTERRECORD GAP. 
13969 2. A PROGRAM TIMING VALUE IS CALIBRATED BY REWINDING 
13 THE TAPE AND THEN CONUTING THE NUMBER OF CYCLES 


THROUGH A PROGRAMMED LOOP REQUIRED TO SPACE OVER 
ee ene OF RECORDS WRITTEN IN PREVIOUS 
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| SEQ 0295 
TEST 7: WRITE DATA RETRY 


13995 33. THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF 
13996 3 RECORDS WRITTEN AGAIN, THIS TIME USING THE WRITE 
13997 H dL RETRY COMMAND. S SHOULD RESULT IN ) 
Hits ’ RECORDS SEPARATED BY A LONG INTERRECORD GAP. | 
999 e i 
14000 34. THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND 
14001 3 ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES 
pres | 3 COUNTED TO COMPLETE THE OPERATION. 
400 3 
14004 35. THE TWO LOOP COUNTS ARE COMPARED, CHECKING TO SEE 
14005 Fy THAT THEY DIFFER BY A SIGNIFICANT AMOUNT. 
14006 3 
14007 ’ 
14008 3 
14009 3 
14010 Hy 
14011 3° 
14012 101033 BGNSUB g>>>>>>>>>>>> eee SUBTEST >>>>>>>>>>>> 
101052 104402 TRAP Cs6Sus 
14013 101054 005037 002214 CLR INTRECV 4 oth ae INDICA _. 
14014 101060 005037 103006 CLR T27CNT sTIMER FOR WRITE DATA SPACING 
14015 101064 005037 103010 CLR T27CNU sTIMER FOR WRITE DATA RETRY SPACING 
14016 101070 004737 105764 JSR PC, T27REST sSET COMMAND PACKET 
14017 101074 004737 106056 JSR PC. T27RT2] iSET UP OTHER COMMAND PACKET 
14016 101100 004737 106120 JSR PC, T27RTS sSET UP OTHER COMMAND PACKET 
pret 101104 012737 176750 103012 MOV @65000. »T270LY 3SET UP DELAY COUNTER 
pets §OS006600060066600064600600666060060606000060006680006600006000008008 
i 3 
pet sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 
14025 § OOOOOO66606060060606480606666 + O0666060004660060660606060000600060000600600088 
14026 
14027 101112 004737 016064 108: JSR PC ,SOFINIT 300 INITIALIZE ON CONTROLLER 
14028 101116 103426 BCS 20% 3B8R IF INIT WAS OK 
14029 101120 DELAY 250 sDELAY ABOUT .25 SEC 
101120 012727 000250 MOV @250,(PC)« 
101124 000000 . WORD 
101126 013727 002116 MOV LSOLY.CPC)« 
101132 000000 . WORD fe) 
101134 005367 177772 DEC -6(PC) 
101140 0013575 BNE 74 
101142 005367 177756 DEC -22(PC) 
101146 001367 BNE --20 
14030 101150 005337 103012 DEC T270LY sBUMP COUNTER 
14031 101154 001356 BNE 10% 3;6R, IF COUNTER NOT DONE 
14032 101156 005237 0v2212 INC FATFLG sBUMP COUNT 
14036 101162 010001 MOV RO,R1 iCONTENTS OF TSSR REGISTER 
14037 101164 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
101164 104455 T CSEROF 
101166 001341 - WORD 737 
101170 003650 .- WORD SFIERR 
101172 012124 - WORD SF IMSG 
seons 101174 013737 002172 102650 20%: MOV UNITN, T270SW sSET UP UNIT NUMBER 
14040 101202 012704 102630 MOV @T27PACKET ,R4& sSUBROUTINE NEEDS PACKET ADDRESS 
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SEQ 0296 
TEST 7: WRITE DATA RETRY 
14041 
ory | SSSSSSEESESESSSESSSESSSSSESAESEEESSASASSSSESEAASESSSASEESSSEEESESEESEE 
1308s WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
PRPRDAEERREARERHAHEEEHAAEEREERGAHEEKSESHAGAGESESESSAGLAGHHREHHHRASESEOR 


101320 104406 TRAP CscLPi 


' 
! 
4048 101206 004737 010752 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
14049 101212 103407 Bcs 23% :8R, IF COMMAND ISSUED OK 
14050 101214 005237 002212 INC FATFLG sBUMP COUNT 
14054 101220 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
14055 101222 ERRHRD ERRNO, WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
101222 106456 TRAP § CSERHRO 
001342 , 738 
“WORD WRTMSG 
101230 012124 WORD SFIMSG 
14056 101232 23%: CKLOOP ;LOOP IF SELECTED 
bien 101232 104406 TRAP = CSCLP1 
13038 PACAEREAHAREAHERERARERAEAAERHEAELAEHHEAASEGESHASEREEREHLHESESER SHALES 
405 + 
14060 sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
406 3 . 
14088 PRR SOSKERLEAHHEHEESLSHHAAAAERSEHRSHAKREKEKAGHKAAERKAARHLREOSHRASAHESAGAEHESH 
10s 101234 004737 011104 JSR PC REWIND :CALL TAPE REWIND COMMAND 
14065 101240 103411 Bcs 36R, IF OBLEM 
14066 101242 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
14067 101246 010004 MOV RO,R4 :GET PACKET ADDRESS 
14068 101250 005237 002212 INC FATFLG : BUMP 
14072 101254 ERRHRD ERRNO, T27RWN,PKTSSR ;REWIND NOT ACCEPTED 
101254 1044 TRAP § CSERHRD 
101256 001 x 739 
101260 104165 [WORD «iT 
101262 5 PKTSSR 
14073 101264 308: CKLOOP ;LOOP IF SELECTED 
one 101264 104406 TRAP = CSCLP1 
ote PRR SSRAASHKEKERAEHEKAAHRASSSHAKSKASHAKKESHHAHRUKHHAKKEKAREHRS ERE R KEES 
1 Fy 
14077 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
3 
pda G eSEAAGRERAOARSERERERDELLAGHOHRRALHESHREADHRSDAEHSMERAKSEASRARELARESOAH 
14081 101266 013701 102660 Mov T27BFR+6,R1 sPICK UP XSTO 
14082 101272 010102 MOV 3SET UP EXPECTED 
14083 101274 052702 000002 eIs @6iT1,R2 3SET BOT BIT IN EXPECTED 
14084 101300 020102 CMP R1,R2 3D0ES EXP = REC'D 
14085 101302 001406 BEQ 40s :8R, IF EQUAL (OK) 
14086 101304 005237 002212 INC FATFLG 3BUMP COUNT 
14090 101310 ERRHRD ERRNO, T27B0T.EXPREC sTAPE NOT AT BOT AFTER REWIND 
101310 104456 TRAP §CSERHRD 
101312 001344 .WORD 740 
101314 103661 "WORD 1T27B0T 
101316 015564 "WORD €EXPREC 
14091 101320 40$: CKLOOP ;LOOP IF SELECTED 
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TEST 7: WRITE DATA RETRY 


SEQ 0297 


14092 101322 012703 000144 MOV #100. ;NUMBER OF RECORDS TO BE WRITTEN 

14098 101326 013737 003114 102762 MOV Ae: tows STARTING WRITE BUFFER ADDRESS | 

14083 ry SAOKERESKASSSAARKSERESESEEASHEHKERSEKEHARAKASRASARKHKSSE CHESSSARASHORDAEHS H 

14097 {WRITE DATA,ACK.CVC*1 COMMAND 

14100 ; SERERARADRLEOHSEOHAEKRSELAKGKACASKEHABHEOKESLAGESLHKOASHAAHAEHSEKSESASEKRESH 

14101 101334 012737 140005 102760 65%: MOV #140005, T27PK3 ;WRITE DATA, ACK .CVCod COMMAND 

14108 101342 012704 102760 HOV @T27PK3,R4 sSET UP R4 WITH PACKET ADORESS 

14103 101346 012737 000024 102766 MOV #20. ,T27SZ SET UP RECORD SIZE IN PACKET 

14104 101354 010465 000000 MOV R4, TSDBCRS) 3s ISSUE 

14105 101360 004737 016340 JSR PC. WAITF WAIT FOR SSR TO SET 

14106 101364 016501 000002 MOV TSSRCRS) RL sGET TSSR CONTENTS 

14107 101370 012702 000200 MOV @SSR,R2 sSET UP EXPECTED 

14108 101374 020102 CMP R1,R2 ;ARE THEY EQUAL 

14109 101376 001406 BEQ 708 :8R, IF OK 

14110 101400 05237 002212 INC FATFLG ;BUMP COUNT 

14114 101404 ERRHRD ERRNO, WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
101404 104456 TRAP «C8 
101406 001345 .WORD 741 
101410 005111 "WORD URTERR 
101412 012136 WORD PKTSSR 

14115 101414 70%:  CKLOOP ;LOOP IF SELECTED 
101414 104406 TRAP  CSCLP1 

14116 101416 005303 DEC R3 :DEC RECORD COUNTER 

14117 101420 001345 BNE 658 :8R, IF MORE RECORDS TO WRITE 

ett PERKESHEARODSRSRHARAHSKERAAEDRASHEEKAEBASSEAREREREEBHKHRSSHABHERERKRSRASS 

14131 JISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

rte : SRHRGKEBSSEKAERERESKAKGRAEKESSKACHARKRESASOHSESSSERLAKEGKRERSERAKRGEABEEKE 

14125 101422 004737 011104 JSR PC, REWIND ;CALL TAPE REWIND COMMAND 

14126 101426 103411 BCS 130% 3BR, IF NO PROBLEM 

14127 101430 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 

14128 101434 010004 MOV RO,R4 :GET PACKET ADDRESS 

14129 101436 005237 002212 INC FATFLG , Cc 

14133 101442 ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 
101442 104456 TRAP  CSERHRO 
101444 001 .WORD 742 
01446 104165 "WORD T27RWN 
101450 0121 “WORD PKTSSR 

14134 101452 130%:  CKLOOP ;LOOP IF SELECTED 

saat 101452 104406 TRAP = CSCLP1 

14138 PEMOSEHAELATASSESEHLAHS HASKESHKAHGAABAASKASHKESAKRARHRERAGCESHALSOARREAKS 

14138 READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

tet . HEREAHASKEHEKEKHASEAAHALEKESHHEAEKEHEAHEHASEREHAAEHASAREKESAKSHEHKEKRAAEEEDES 

14142 101454 013701 102660 MOV T27BFR+6.R1 sPICK UP XSTO 

14143 101460 010102 MOV 2 


1 ’ UP EXPECTED 
14144 101462 052702 000002 BIS #6iT1,R2 sSET BOT BIT IN EXPECTED 
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| 
SEQ 0296 
TEST 7: WRITE DATA RETRY 
14145 101466 020102 chp R1,R2 ;D0ES EXP = REC'D 
14146 101470 001406 6EQ 140% 30R, IF EQUAL (OK) 
14147 101472 37 002212 INC FATFLG : 
14151 101476 ERRHRD ERRNO, T27B0T ,EXPREC sTAPE NOT AT GOT AFTER REWIND 
101476 1044 : TRAP  § CSERHRO 
101 00134 .WORD 743 
101502 103661 [WORD T2780T 
101504 015564 “WORD EXPREC 
14152 101 140%: CKLOOP sLOOP IF SELECTED 
104406 CscLPi 
14153 101510 012704 102760 MoV @T27PK3,R4 sSET UP PACKET ADORESS 
141 101514 012737 000010 102762 MOV #10, T27RB sSET UP RECORDS TO SPACE OVER 
+i3s SSRSOSAEKOCKESASESESSGEREARSHASSEASSEERADRGBRASKRSHKAHSASORERAASGHAEHAESH 
14158 SACK, CVC*1,SPACE FORWARD COMMAND 
etry ; SECSECKESHASKAEASLASEEEEARSRAKROADRLASAHEAEALSSHAASEKRSASAREHSLHASKEDE SCBEK 
iaieg 101 012737 140010 102760 MOV #140010, T27PK3 sACK,CVC*1,SPACE FORWARD COMMAND 
14163 101530 010465 000000 150%: MOV R4, TSOBCRS) sISSUE COMMAND 
14164 101534 005237 103006 1528: INC T27CNT : IMER 
14165 101 DELAY i sDELAY ABOUT 100US 
101 012727 000001 a #1.(PCD« 
19 013727 002116 HOV LSOLY.CPC)« 
101: 7 177772 bee -6(PC) 
10 001375 BNE .-4 
10 $05 7 177756 DEC -22(PC) 
101566 001367 BNE .-20 
14166 1018 016501 000002 roy TSSRCRS),R1 sGET TSSR 
14167 101574 70 000200 BIT @B81T7,Ri sCMECK FOR TSSR’S SSR SET 
Heiss Hoteee SLEF oocone fot Heehcasy.m iar sfktus rot aaa 
° t 
141 i$ 0 708 000200 MOV @SSR.R2 sSET UP EXPECTED 
4171 1016 O26201 CHP R2,Ri , OK 
atte 101614 001406 6EQ 1608 :OR, IF ALL IS WELL 
14175 101616 37 002212 INC FATFLG sBUMP 
14177 10 ERRHRD ERRNO. T27SCF ,.PKTSSR sSPACE FORWARD DION’ T WORK OUT 
toisss 901350 om fee 
0 3 .WORD 744 
HBS itis ms iene 
14178 10 1608: CKLOOP sLOOP IF SELECTED . 
wae 10 1044.06 cocLP1 
41860 ESOSSOSKESHSAHROSBESSHESSEASHALHEASHESESSSHBASEOHDSDEEANSASESOAOSAOSESSE 
tei8s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
; BADSASESSSSAALSASSSSSSSSSERASSOKESSHSEHOADEESLASSCHLESARALAALSSSSSOBSS 
101634 006737 011106 JSR PC REWIND CALL TAPE REWIND CorpunD 
10 004737 016426 JSR «PC. CHKTSSR +SEE WOW TSSR TS 
4186 10 103407 acs 1706 :0R, IF 
189 101646 010001 MOV RO.R1 sSAVE TSSR 





TSV7 - HARDWARE TESTS 1-8 
DATA RETRY 


TEST 7: WRITE 


14190 101650 
14194 101654 


005237 


013701 
010102 
052702 
c20102 
001406 


104406 
012703 
013737 


012737 


002212 


002212 


000144 
003114 
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102762 


INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 
TRAP CSERHRO 
-WORD 745 
-WORD T27RWN 
«WORD PKTSSR 
170%: CKLOOP :LOOP IF SELECTED 


TRAP CsCLP1 
PRRAAHAASHAEEERERAEEAARARREREARAERARRERAEEARARAHEREEEEHEEEEARAEE REESE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
SSSHRHASKSEKASSASSSAEHAAEASEAKESHAESEEESEREDEEEEESEEEKSEEEEEEEEEEEEEEEE 


MOV T27BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS @BIT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 sDOES EXP = REC'D 
BEQ 175% BR, IF —_ (OK) 
INC FATFLG 8 
ERRHRD ERRNO, T27B0T ,EXPREC ; TAPE NOT AT BOT AFTER — 
TRAP CSERHRD 
-WORD 746 
“WORD 12780T 
-WORD EXPREC 
175$: CKLOOP ;LOOP IF SELECTED 
TRAP CsCLP1 
MOV #100. ,R3 s;STARTING RECORD SIZE 
177%: MOV FREE. T2708 sSTARTING WRITE BUFFER ADDRESS 
§ POOREAESSASEAEEESSEESEEEEESEEEEEEEEEDEEEEEEEEEEREEEEEEDTOEEEEEEEEE 
; 
sWRITE DATA,CVC=1,ACK COMMAND 
; 
jPOSROSESEEESEEEEESEESEEEEESEESEEOEESEREDREDEESEEEEEEEEEDRDOEEEDEEEES 
MOV #140005, T27PK3 sWRITE 7, CvC=1,ACK COMMAND 
MOV @T27PK3,R4 ;SET UP R4& WITH PACKET ADDRESS 
MOV #20. ,T27SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) i ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR T T 
MOV TSSRCRS), RL sGET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 180$ :BR, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
747 
-WORD WRTERR 
-WORD PKTSSR 
180%: CKLOOP sLOOP IF SELECTED 
TRAP CscLP1 
DEC R3 sCOUNT NUMBER OF RECORDS 
BNE 1778 3BR, IF MORE RECORDS TO WRITE 


SEQ 0299 
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14241 


i 


012703 
004737 


012136 


104406 
012703 
013737 


011104 


000002 
002212 


000001 
010556 


000002 
002212 


000144 
003114 
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102762 


102760 
102766 


S SOHSSSSSHHSSSASSASHSSESSSSSESHSSESHSESHSHSSSHESSSSSESSSHSESSSSESSEESE 


V ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


3 
{ SRHSASASSHSHSSSSHASSHASS SHA SHESHESESHSSHESASHOSSHSHSESSSESESESESEESESE 


1628: 


CKLOOP 


PC ,REWIND 
1628 


RO,R 
TSSRCAS).R1 


ERRNO. T27RUN,PKTSSR 


s ISSUE REWIND 
IFA ALL IS WELL 

ert P T ADORESS 

:GET TSsRe CONTENTS 

;BUMP COUNT 

}REWIND FAILED 
TRAP  CSERHRO 
.WORD 748 
"wORD T27RWN 
“WORD PKTSSR 


sSELECT LOOP MAYBE 
TRAP CscLPi 


FSSHHHSSHSSSSESSHSSSHSHSHSSSEHSSHSSSSSESSSSEASSSESSSESSSSSSSSSSSSSESEEEEES 


s ISSUE SPACE RECORDS 
iBIT 15 SETS DIRECTION - O=FORWARD 


COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
1=REVERSE 


\ edcncccccccscccoscccesoccesecsesoccesoseesescesesossesesoosesesees 


1658: 


MOV 


MOV 
MOV 


#1. ,R3 
PC, SPACE 
185% 


RO,R4 
TSSRCRS),R1 
FATF 


ERRNO, T27SCF ,PKTSSR 


#100. .R3 
FREE. T27We 


sSPACE 1 RECORD FORWARD 
s ISSUE SPACE COMMAND 


BR, IF COMMAND OK 

iGET PACKET ADORESS 

sGET TSSR STATUS 

;BUMP COUNT 

; SPACE FORWARO COMMAND es 


CSERHRD 
° 749 
-WORD  T27SCF 
-WORD PKTSSR 


;LOOP IF SELECTED 
CscLP1 


RAP 
sNUMBER OF RECORDS TO BE WRITTEN 
sSTARTING WRITE BUFFER ADDRESS 


§ SSHSNSSSSSSSSSSSESSSSSSSSSSSHSSSSSEHSSSSHSSSSESSSESESESESSEEESSESESES 
WRITE DATA RETRY. ACK COMMAND 


3 
{ SSSSSSSSSSSSSSSSSHSSSSSSSSSHSESSSSSSSSSSESSSESSSSSSESESSSSSSESESEEEESE 


190%: 


#101005, T27PK3 
7PK3 ,R4 


:WRITE DATA RETRY ,.ACK C 

;SET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 
OMMAND 


3 
;ARE T 
;8R, IF OK 


SEQ 0300 
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14294 102170 005237 
14298 102174 


104406 
14300 102206 013737 


~ 
& 
$ 
- 


14308 102214 012737 
4309 


312 004737 
14313 016501 
14314 0127 


002212 


003114 


102762 


102760 
102766 


eee 
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INC FATFLG :BUMP COUNT 
ERRHRO ERRNO, T27WOC,PKTSSR }TSSR INCORRECT AFTER KRITE E DATA RAD 
"TORO 750 
“wORD T27WOC 
200%: CKLOOP LOOP IF SELECTED sega © Seapbopee 
: K 
" : RAP —- CSCLP1 
MOV FREE, T27W8 sSTARTING WRITE BUFFER ADDRESS 
F SSSSSSASASSSSHSSSSSSSHESHHSSESAESSESSEASHESSSSOESESSSSSESSESSEESSESEE 
{WRITE DATA,CVC*1,ACK COMMAND 
 ebecccescsscesccccccccsesecesecesesesosececeseoeeeecescoecocoeeses 
MOV #140005, T27PKS ; WRITE DATA. CvC=3 ACK COMMAND 
MOV eT27PK3 ;SET UP R PACKET ADORESS 
MOV $20. T2982 ;SET UP RECORD” SIZE IN PACKET 
MOV R4, TSOBCRS) ;ISSUE COMMAND 
JSR PC. WAITF ;WAIT FOR SSR T 
MOV TSSR(RS),R1 :GET TSSR CONTENTS 
MOV SSR.R ;SET UP EXPECT 
CMP 1,R2 ;ARE THEY E 
BEQ 10% :BR, IF OK 
INC FATFLG :BUMP COUNT 
ERRHRD ERRNO, WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA. 
.WORD 751 
"wORD WRTERR 
“WORD PKTSSR 
2108: CKLOOP ;LOOP IF SELECTED 
TRAP = C$CLP1 
DEC R3 ;BUMP DOWN RECORD COUNTER 
BNE 1908 :8R, IF MORE RECORDS TO WRITE RETRY 
J SSSSSHSSSSSSSSSSSHSESSSSSESSOSSSSSAASHESSESSEESHESESSHESSEESESESSHSESSESEEEE 
}ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
jAbesaaansescceescccssccaescccassscassccaassccassccacssccssecqes sees 
JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
Bcs 2308 ;BR, IF NO PROBLEM 
MOV TSSRCRS),R1 :GET TSSR CONTENTS 
MOV RO,R4 ;GET PACKET ADDRESS 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T27RWN,PKTSSR }REWIND NOT ACCEPTED 
TRAP CSERHRD 
.WORD 752 
"WORD T27RWN 
"wORD PKTSSR 
230%: CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 


F SSSSSASSSSSSSSSSSSSSSSHSHSSESSSSSHSSSSSESESSSSSSESEHEHESSSSESSEEEEEEEED 
3 


SEG 0301 


ee ed 
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013701 
010102 


1044 
012704 
€12737 


012737 


102760 
000010 


140010 
000000 
103010 
000001 
002116 
177772 
177756 
000002 
000200 
000002 
000200 


002212 


103006 
103010 


102762 


102760 
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sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
J SOSSHESSESASSSHAHRSSEEEEHAEEESSESESSSEESSSSESSSEHEESSSESSSASSESSEEESES 


2408: 


2508: 


2528: 


2608: 


INC 
ERRHRD 


CKLOOP 


MOV 
MOV 


ty Aaa Ri 

eeiti. R2 

R1,R2 

2408 te 

ERRNO T27BOT . EXPREC 


@T27PK3,R4 
#10, T27RB 


#140010, T27PK3 
R4, TSOBCRS) 
T27CNU 


1 


TSSRCRS),R1 
+ 1 laa 


252% 
TSSRCRS),R1 
@SSR ,R2 


FATFLG 
ERRNO, T27SCF ,PKTSSR 


T27CNT,R1 
T27CNU,R2 
R1,R2 
R1,R2 


sPICK UP XSTO 
;SET UP EXPECT 


ED 
iSET BOT BIT IN EXPECTED 
REC'D 


sD00ES E 
:8R. IF EQUAL C€OK) 
UMP 


38 COUNT 
i TAPE NOT AT BOT AFTER — 


;LOOP IF SELECTED 


;SET UP PACKET ADDRESS 


TRAP 


;SET UP RECORDS TO SPACE OVER 


J SSSEHHASASASSSASHSESSESSSSSHEESSSHSASHSESEHSSESSESSESESESSESEESEEEEESE 
ACK, CVC#1,SPACE FORWARD COMMAND 


; 
SEREAEAARHKEEK HS ORREMHAAAEHEAAERALEHEHRAARREREHRARAGHEAEEAHAEHAHTADHAKRASESH 


ACK ,CVC=1,SPACE FORWARD COMMAND 
s ISSUE COMMAND 


;BUMP TIMER 
sDELAY ABOUT 100US 


;GET TSSR 


sCHECK FOR TSSR‘S SSR SET 


ED 
sWAS EVERYTHING OK 
:BR, IF ALL IS WELL 


sBUMP COUNT 
sSPACE FORWARD DION'T — 


;LOOP IF SELECTED 


sTIME FOR WRITE SPACING 

sTIME FOR WRITE RETRY SPACING 
sGET'EM PRETTY CLOSE 
iGET! EM PRETTY CLOSE 


- WORD 
- WORD 
- WORD 


SEQ 0302 


#1,CPC)« 
LSOLY.CPC)>+ 
“OCPD 
“32cec) 
--20 


CSERHRD 
754 


T27SCF 
PKTSSR 


CsCLPi 
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| TEST 7: WRITE 


~ 
& 
w 
wo 
w 
~ 
8 


102770 


000077 
000777 


002212 


002212 
017272 


016546 
076146 


MACRO YOS.02 


000017 


3008: 


163%: 
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-ATFLG 
ERRNO, T27TIM, EXPREC 


FATFLG,@15. 
999% 
PC ,CKDROP 


PC, TSTLOOP 
163% 
T27L00P 
TST 


+ 
;LOCAL STORAGE FOR THIS TEST 


ad 
T27PACKET: 


T27DATA: 


T27DSW: .; 
T27BFR: .BLKW 


;WRITE SUBSYSTEM MEMORY COMMAND PACKET 


3 
T27PK2: 


-BLKB 


10-<.-TSV2E7> 
100004 
T27DATA 

0 

10. 

T27BFR 

te) 

20. 

0) 


te) 
2s. 


10-<.-TSV2E7> 
100006 
T278F2 

0 

6. 


SEQ 0303 
;GET'EM PRETTY CLOSE 
sCLEAR LOW 6 BIT : i 
sSETTING UP C 
;CHECK FOR OSPrERENCE | 
38R, IF GOOD HECK 98388 | 
;BUMP COUNT 
sTIME WAS NOT DIFFERENT ENOUGH 
TRAP CSERHRD 
. 0 755 
.- WORD T27TIM 
. WORD EXPREC 
;LOOP IF SELECTED 
RAP CSCLP1 
3<eceeeececeecee END SUBTEST >>>>>>>>>>>> 
L10 : 
TRAP CsESUB 
31S ERROR COUNT AT 25 
;68R, IF LESS THAN 25 
sTRY TO DROP THE UNIT 
108 WE NEED TO ITERATE TEST 
IF NO LOOP REQUIRED 
PXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CsExIT 
. WORD L10122-. 
sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH , ACK 


sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 0 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM 


COMMAND, AND ACK 
;ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 





| 
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| SEQ 0304 

| TEST 7: WRITE DATA RETRY 
14446 102750 -BLKB 10-<,-TSV2E7> | 
14448 102760 T27PK3: j 
14449 102760 100005 .WORD 100005 sREREAD COMMAND, AND ACK \ 
14450 102762 T27RB: 
14451 102762 003114 T27WB: .WORD FREE sADDRESS OF WRITE BUFFER 
14452 102764 000000 -WORD O 
14453 102766 000000 T27SZ: .WORD 0O ;SIZE OF BUFFER CEXTENT) 
14454 EVEN 
14455 ’ 
144 3 
14457 } 
14458 102770 276F 2: 
14459 102770 910 T276SO: .BYTE 10 ;BSELO AREA 
14460 102771 200 T27B8Si: .BYTE 200 ;BSEL1 AREA 
14461 102772 000000 T27S2: .WORD 0O sSEL 2 AREA 
14462 102774 000000 T27S3: .WORD O sDATA AREA 
14463 3 
14464 3 
14465 .EVEN 
ieee? sTAPE MOTION PACKET COMMAND VALUES 
14468 102776 100205 T27RN: .WORD 100205 sREREAD DATA (NEXT) 
14469 103000 100605 T27WOR: .WORD 100605 sREREAD DATA RETRY 
14470 103002 102205 T27CON: .WORD 102205 sWRITE CONTINOUS 
14471 103004 177777 -WORD 177777 sEND OF DATA 
ite 
14474 103006 000000 T27CNT: -WORD 0O ;TAPE TIMER COUNTER STORAGE AREA 
14475 103010 000000 T27CNU: .WORD O ;TAPE TIMER COUNTER STORAGE AREA 
prt 103012 000000 T270LY: .WORD O ;DELAY COUNTER 
14478 
14479 
14480 sLOCAL TEXT MESSAGES FOR TEST 
14461 3 
1448s 
14484 103014 124 141 160 T27WNG: .ASCIZ 'T Position Incorrect arose _MEnere Previous (OPP=1)' 
14485 103102 124 123 123 T27ROF: .ASCIZ ‘TS Incorrect After READ DATA Command’ 
14486 103151 122 105 122 T27RRF: .ASCIZ ‘REREAD Previous (Space Reverse, Read Forward) Command Failed’ 


14487 103246 120 117 123. Te7SC: .ASCIZ ‘POSITION (Space Command) Feiled. TSSR Not Correct’ 
14488 1033350 122 111 102 T27LOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 

14489 103400 124 123 123 T27WOF: .ASCIZ ‘TSSR Not Correct After Iliegel Mode Bits Sct’ 

14490 103455 111 154 154 T27LO0Q@: .ASCIZ ‘Illegal Mode Bits, eee A. Set ILC Bit In XSTO’ 


14491 103536 122 105 122 T27SSR: .ASCIZ ‘REREAD COMMAND Not Ac eepted 
14492 103572 124 123 123 T27WOE: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY Command,At BOT’ 
14493 103661 124 141 160 T27B0T: .ASCIZ ‘T Not At BOT After — voanene (BOT Not Set" In XSTO)‘ 


14494 103754 127 122 111 T27TIM: .ASCIZ ‘WRITE DATA RETRY''S Erase Tape Not Saoue 
14495 104031 122 105 122 T27EOT: .ASCIZ REREAD DATA OVER EOT GAVE NO 0’ TAPE STA TUS ALERT’ 
14496 104110 124 123 123 T27TM: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND Reject’ 


14497 104165 122 145 167 T27RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 

14498 104234 122 101 115 T27RNC: .ASCIZ ‘RAM Error, Correct Date Pattern Not In Ram’ 

14499 104307 124 123 123 T27AM3: .ASCIZ ‘TSSR Init. Failed After REREAD COMMAND’ 

14500 104356 104 162 151 T270FL: .ASCIZ ‘Drive 7 Select Failed To Set “OFL” In TSSR’ 

14501 104431 124 123 123 T27WOD: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
14502 104521 124 123 123 T27WOC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command’ 


14503 104574 103 126 103 T27vVCK: .ASCIZ ‘CVC Set, Didn''t Reset VCK In Message Buffer’ 





j 
' 


1 
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012701 


012701 
005021 
005021 


102630 
100004 
102640 


000012 
102652 


000024 


000030 
177777 
000000 


102740 
100006 
102770 
000006 
102770 


102760 
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102652 


HE Sal 


-ASCIZ 
& 


T270TA: LASCIZ 
TST2710: 
EVEN 


3¢ 


‘TSBA Not Correct After REREAD DATA Command’ 
‘WRITE SUBSYSTEM MEMORY C 
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Not Accepted (RAM Read)‘ 
XSTO’ 


ommand 
‘Reading Long Record sat foe To Set RLL Bit In 


"Reading L 
Residuel, By 


‘Readi a Record Failed To Give T 
a" BaTR ETRY, At First Record, Fai 


vega 


Record Failed To Set 
e Count Incorrect After Short Record Read’ 


RLS Bit In XSTO’ 


Status Alert’ 
ed To Set RIB Bit XST3’ 


SR Not Correct After SPACE RECORDS Command’ 
‘Teer Not Correct After WRITE DATA RETRY, Into BOT’ 
'TSSR Not Correct After WRITE DATA RETRY . 
‘Data -reere Error, Deta Read From Tape Not faual To Written’ 


-ASCIZ 


rite Date Retry’ 


;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T27REST: 


64%: 


T27RT2: 


T27RTS: 


@T27PACKET.R1 
#100004, (R1)+ 
@T27DATA,CR1)+ 
CR1)+ 


#10. ,CR1)+ 
@T27BFR,CR1)+ 


#24. ,R2 

#177777, T27BFRCR2) 
-C(R2) 

#0 ,R2 

64$ 

PC 


@T27PK2,R1 
#100006, (R1)+ 
@T27BF2,CR1)+ 
Ride 
#6.,CR1)+ 
CR1)+ 
@T27BF2,R1 
CR1)-« 

CR1) 

PC 


@T27PK3,R1 
CR1)-+ 
CR1)+ 


sSAVE_ THE REGISTERS 
sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
ase OF CHARATSTICS DATA BLOCK 
i 


NDED ADORE 
sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sSELECT ORIVE ZERO 


sNUMBER OF LOCATIONS TO BE CLEARED 
° MESSAGE BUFFER 


; OF LOOP YET 
sKEEP GOING UNTIL DONE 
sRETURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

SWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 


iEX TENDED ADORESS 
sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE REGISTERS 
+ 7 UP oe ADDRESS 


;COMMAND SP 
sADDRESS OF DATA BLOCK 


SEQ 0305 
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MOV RO,R1 
ERROF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 


SEQ 0306 


—— 


DATA RETRY 
005021 CLR CR1) EXTENDED ADDRESS 
005011 CLR (Ri). iSIZE OF DATA TRANSFER BLOCK 
000207 RTS PC sRETURN 
ENDTST 
L10122: 
104401 TRAP CsETsT 
-SBTTL TEST 8: WRITE/READ TAPE MARK 
¥ 
i THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES 
sPROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 
iBY CHECKING THAT THE READ AND SPACE RECORDS agen DETECT THE 
sTAPE MARK. IN ge PD SINCE WRITE TAPE MARK IS THE FIRST 
sSUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED * Is ene ee 
sTHAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY Y AND THAT 
can sFORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 
Hy 
i THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 
° 
3 
° 
. BGNTST a 
012737 006446 002170 MOV #EPRT2,EPRTSW ropa ERROR MESSAGE 
005037 003124 CLR KTENABLE sTURN KT11 OFF 
004737 017364 JSR PC ,KTOFF ;TURN KT11 BACK OFF IF THERE 
012700 113401 MOV @TST28ID,RO sASCII MESSAGE TO IDENTIFY TEST 
004737 016600 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
012737 000005 002206 MOV #5 ,LOOPCNT sPERFORM S ITERATIONS 
3¢ 
iTEST 8, SUBTEST 1 
6 
i VERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL MODE 
;CODE) WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS 
REJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL 
sVALID MODE CODES ARE CHECKED. 
3 
Fy 
te 
T28LO0P : 
BGNSUB 3>>>>>>>>>>>> on: einen >>>>>>>>>>>> 
104402 “"" TRAP ss C$8SUB 
004737 113426 JSR PC. T28REST sSET COMMAND PACKET 
004737 113520 JSR PC, T28RT2 sSET UP OTHER COMMAND PACKET 
004737 113562 JSR PC, T28RTS sSET UP OTHER COMMAND PACKET 
004737 016064 JSR PC,SOFINIT :00 INITIALIZE ON CONTROLLER 
103407 6CcS 20% 368R IF INIT WAS OK 
005237 002212 INC FATFLG sBUMP COUNT 
010001 CONTENTS OF TSSR REGISTER 
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112737 


000007 111360 20%: 
111340 
010752 
002212 


24%: 


111501 
111500 


30%: 
111340 
00000 
010752 
002212 


~ 


111360 


000002 
000100 
002212 
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07, T280SW 
@T28PACKET ,R4 

PC ,WRTCHR 

24% 

FATFLG 

RO,R1 

ERRNO ,WRTMSG , SFIMSG 


EXTFEA 
50% 


@200, T288S1 
#10, 0, teeBso 
Rae orsDaCRS) 
PC; CHKTSSR 


30 

RO,R1 

FATFLG 

ERRNO, T28SSR,PKTSSR 


@T2BPACKET ,R4 
@7,T280SW 

PC,WRT 

S0$ 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SFIMSG 


TSSRCRS),R1L 
#OFL,.R1 


FATFLG 
ERRNO, T280FL ,SFIMSG 


SEQ 0307 

TRAP CSEROF 
- WORD 1 | 
. WORD IERR } 
«WORD SFIMSG 

sSET UP_DRIVE NUMBER 

sSUBROUTINE NEEDS PACKET ADDRESS 

; ISSUE WRITE CHARACTERISTICS 

le r — ISSUED OK 

iSAVE CONTENTS OF TSSR 

ITE CHARACTERISTISC ro 

TRAP CSERHROD 
- WORD 
-WORD WRTMSG 
-WORD SFIMSG 


TRAP CsCLP1 
sCHECK FOR EXTENDED FEATURES SW SWITCH 
36R IF SWITCH IS ON 


;WRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT {TURN ON EXTFEA HW SWITCH) 
}WRITE SUBSYS MEM PACKET 
sISSUE C 
sMATT FOR SSR 
NO ERROR 
1eRROR SAVE TSSR 


sBUMP COUNT 
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 


-WORD 803 
-WORD T26SSR 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 
sSUBROUTINE NEEDS PACKET ADDRESS 
sSELECT ORIVE 7 
sISSUE WRITE CHARACTERISTICS 
3;BR, IF COMMAND ISSUED OK 
;BUMP COUNT 
iSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 6804 
“WORD WRTMSG 
-WORD SFIMSG 
sSCOPE LOOP 
TRAP CsCLP1 


sGET use CONTENTS 
sCHECK FOR THE OFFLINE BIT SET 
:6R, IF OFFLINE (GOOD) 


;BUMP COUNT 
SOFF LINE SHOULD HAVE BEEN SET (BAD) 
TRAP CsEROF 


-WORD 6805 
-WORD T260FL 
-WORD  SFIMSG 
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SEQ 0308 
TEST 68: WRITE/READ TAPE MARK 

14666 106450 608: CKLOOP ;LOOP IF SELECTED 
106450 104406 TRAP CsCLPi 

14667 106452 012703 111516 MOV @T26RN,RS sPOINTER FOR COMMANDS 

14668 106456 011337 111470 65%: MOV CR3), T26PKS 3 TAPE READ COMMAND IN PLACE 

14669 106462 012704 111470 MOV OT26PK3 .R4 3R4 = POINTER TO PACKET 

14670 106466 010465 000000 MOV R4, TSOBCRS) 

14671 106472 004737 016340 JSR PC ,WAITF sWAIT FOR SSR TO SET 

14672 106476 016501 000002 MOV TSSRCRS).R 3sGET T ONTENTS 

14673 106502 012702 100306 MOV @SSR!SC Ore :BIT1:8IT2, Re 1% UP EXPECTED 

14674 106506 020102 CMP R1,R2 sARE THEY EQUAL 

14675 106510 001406 BEQ 80% iBR. IF OK ESP. FUNCTION REJECT 

14676 106512 37 002212 INC FATFLG 

14680 106516 ERRHRD ERRNO, T268TM,PKTSSR iTSSR INCORRECT AFTER FORMAT CMD 
106516 104456 TRAP CSERHRD 
106520 001446 - WORD 806 
106522 112404 - WORD T26TM 
106524 012136 .- WORD PKTSSR 

14681 106526 80$: CKLOOP ;LOOP IF SELECTED 
106526 104406 TRAP CSCLPi 

14662 106530 005723 TST CR3)-+ sPOINT TO NEXT COMMAND 

146863 106532 022713 177777 : CMP @177777,CR3) sEND OF THE COMMANDOS YET 

14684 106536 001401 BEQ 90% ;68R, IF DONE 

14685 106540 000746 BR 65% sMORE COMMAND(S) TO GO 

14686 106542 90%: 

14687 106542 ENDSUB 3>>>>>>>>>2>>> END SUBTEST >>>>>>>>>>>> 
106542 L10131: 
106542 1044035 TRAP CsESuUB 

14688 106544 023727 002212 000017 CMP FATFLG, #15. :IS ERROR COUNT AT 25 

14689 106552 103402 BLO 999% 36R, IF LESS THAN 25 

14690 106554 004737 017272 JSR PC ,CKDROP ;TRY TO DROP THE UNIT 

14691 106560 999%: 

14692 

14693 3¢ 

14694 3 

13332 — 8, SUBTEST 2 

14697 i VERIFIES THAT A FORMAT COMMAND WITH AN ILLEGAL MODE 

14698 sCODE CAUSES FUNCTZLN REJECT TERMINATION WITH THE 

14699 } ILLEGAL COMMANDO CILC) ERROR BIT SET. ALL ILLEGAL 

147 sMODE CODES ARE CHECKED. 

14701 3 

14702 3 

14703 3 

14704 3- 

14705 106560 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
106560 T8.2: 
106560 104402 TRAP CsBSuB 

14706 106562 004737 113426 JSR PC, T28REST sSET COMMAND PACKET 

14707 106566 004737 113520 JSR PC, T28RT2 sSET UP OTHER COMMAND PACKET 

14708 106572 004737 113562 JSR PC, T26RTS 3SET UP OTHER COMMAND PACKET 

14709 106576 004737 016064 JSR PC ,.SOF INIT 300 INITIALIZE ON CONTROLLER 

14710 106602 103407 ecs 20% 36R IF INIT WAS OK 

14711 106604 005237 002212 INC FATFLG 3sBUMP COUNT 

14715 106610 010001 MOV RO,R1 i CONTENTS OF TSSR REGISTER 

14716 106612 ERROF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
106612 104455 TRAP CSEROF 
106614 001447 - WORD 807 
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| 
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106616 
06620 


002172 111360 20%: 
111340 
010752 
002212 


24%: 
111506 
111470 308: 
003 


111472 
111470 
000400 111476 


~ 
- 
y 


000000 
016340 
000002 
100206 


002212 


758: 
111370 
001000 


002212 


1608: 


177777 
190%: 


002212 000017 


CKLOOP 
TST 


UNITN, T280SW 
@T26PACKET ,R4 
TCHR 


24 
ai 
ERRNO, WRTMSG, SFIMSG 


@T26IMv RS 
CR3), T26PKS 
FRE 8RB 


TSéncn 
TSGRCHS) AL ao 
1,R2 


758 
FATFLG 
ERRNO, T26WOF ,PKTSSR 


T28BFR+6,R1 
R1,R 
@BiT9,R2 
R1.R2 
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-WORD SFIERR 

-WORD SFIMSG 

sSET UP DRIVE NUMBER 

sSUBROUTINE NEEDS PACKET ADORESS 

SISSUE WRITE CHARACTERISTICS 
COMMAND ISSUED OK 


s6R, 
sBUMP 
; SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC > 
CSERHRO 
THORD 808 
-WORD WRTMSG 
-WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CsCLPi 
sSET POINTER FOR COMMANDS 
sSET UP NEXT COMMAND 
STARTING | WRITE BUFFER ADORESS 
sSET UP R4 WITH PACKET ADORESS 
3SET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 
iWAIT FOR SSR!BIT1I!BIT2 TO SET 
3GET TSSR CONTENTS 
sSET UP EXPECTED 
_ THEY EQUAL 
3 . 
sBUMP COUNT 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 86809 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 
seer MESSAGE BUFFER 


; UP EXPECTED 
sSET THE ILC BIT IN EXPECTED 
sARE THEY 


1803 3BR, IF EQUAL CALL IS WELL) 
FATFLG sBUMP COUN 
ERRNO, T26L0Q,EXPREC sTHE ILC BIT WAS NOT SET IN XSTO 
RAP CSERHRD 
-WORD 610 
-WORD T28L00 
«WORD EXPREC 
TRAP CéCLPi 
CR3)+ sBUMP TO NEXT ADDRESS (COMMAND) 
CR3),0177777 sCHECK FOR END OF COMMAND BUFF 
30% 76R, IF MORE COMMANDS TO TRY 
;LOOP IF SELECTED 
TRAP CSsCLPi1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10132: 
CsESUB 
FATFLG,.@15. sIS ERROR COUNT AT 25 
999% 3BR, IF LESS THAN 25 


a en eee ee 
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14763 107034 004737 017272 
64 107040 
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SEQ 0310 


JSR PC ,CKDROP sTRY TO DROP THE UNIT 
999%: 


8¢ 
‘ 
— 8, SUBTEST 3 


iVERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE 
sPROPERLY, AND THAT READ yn SUBSEQUENTLY ISSUED 
:T0 DETECT THE WRITTEN TAPE MARKS TERMINATE WITH TAPE 
sSTATUS ALERT WITH THE TAPE MARK DETECTED (TMK) STATUS 
iBIT SET. THE FOLLOWING SEQUENCE IS EXECUTED. 


54. THE CONTROLLER IS INITIALIZED AND TAPE REWOUND 
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT. 


A WRITE TAPE MARK COMMAND WITH CvC=*1 IS ISSUED 
AND PROPER TERMINATION AND STATUS IS VERIFIED 
(I.E. VCK=0 AND TMK=1). 


SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE ty 
CvC*0 ARE ISSUED AND PROPER TERMINATION NORMAL 
AND STATUS (TMK) VERIFIED. 


A READ REVERSE COMMAND IS ISSUED AND PROPER 

TERMINATION (TAPE STATUS ALERT) AND STATUS (TMK) 

ate 2B IT IS ALSO VERIFIED THAT NO DATA IS 
TRANSFERRED INTO MEMORY. 


A SPACE RECORDS REVERSE COMMAND IS ISSUED AND 
PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS 
CTMK) VERIFIED. 


i BA RR FORWARD COMMAND IS 
ISSUED AND PROPER TERMINATION (TAPE STATUS ALERT) 
AND STATUS CTMK) VERIFIED. IT IS ALSO VERIFIED 
THAT NO DATA IS TRANSFERRED INTO MEMORY. 


A SPACE RECORDS REVERSE COMMAND THAT CONTAINS A 
C GREATER THAN 1 IS ISSUED AND IT IS 
AL ERMINATION 


& 


ws 


OCCURED, TMK=1 THA 

BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 
THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
TO BE PREMATURELY TERMINATED. THIS SHOULD LEAVE 
Tae eee JUST BEFORE THE FIRST RECORD ON 


TAPE POSITION IS VERIFIED BY ISSUING ANOTHER 
SPACE RECORDS REVERSE COMMAND AND VERIFYING THAT 
TAPE STATUS ALERT TERMINATION OCCURS TH THE 
REVERSE INTO GOT (RIB) STATUS ERROR én 


A_SPACE RECORDS FORWARD COMMAND THAT CONTAINS A 
RECORD COUNT ATER THAN 1 IS ISSUED AND IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION 








TSV7 - HARDWARE TESTS 1-8 
TEST 6: WRITE/READ TAPE MARK 


002116 
177772 
177756 
111532 
002212 


011104 
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111532 
108: 


111360 20%: 


SEQ 0311 


OCCURED, TMK=1, AND THAT RBPCR (RESIDUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER 

VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 
THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
TO BE PREMATURELY TERMINATED. 


3>>>>3>>2>>>>> BEGIN SUBTEST »>>>>>>>>>>>> 


BGNSUB 
78.3: 
Csesus 
JSR PC, T2BREST sSET 
JSR PC. T2BRT2 sSET UP OTHER ACKET 
JSR PC. T26RTS 3SET UP OTHER PACKET 
MOV #10000. , T260L sSET UP Y 
JSR PC. SOF 300 INITIALIZE ON CONTROLLER 
ecs 20% :0R IF WAS 
DELAY 250 sDELAY ABOUT .25 SECONDS 
HOV €250. (PC) 
. WORD 
nov LSOLY.(PC)+ 
* 
oEC -6(PC) 
ee .-4 
DEC -22(PC) 
BHE .-20 
DEC T260LY sBUMP DELAY ROUTINE DOWN 
BNE 108 :0R, IF MORE DELAY TIME LEFT 
INC FATFLG :BUMP COUNT 
MOV Ri sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR.SFINSG sFATAL ERROR TSSR WAS NOT OK > 
word «6 
‘WORD SFTERR 
[WORD  SFINSG 
roy Uisophexes RG oeeT ot yp PACKET ADORESS 
e 3 
usr PC URTCHR SSE UATE CHARAC TERISTICS 
ty 8 COMMAND 
INC FatFic s8UNP COUNT 
MOV RO, RI sSAVE CONTENTS OF 
ERRHRD ERRNO. WRTMSG. SFINSG sURITE IstTIsc FAILED 
CeERRO 
“NORD cainss 
“WORD 40s SF INSG 
CKLOOP :LOOP IF SELECTED 
TRAP = s« CSC PL 
JSR PC REWIND sCALL TAPE REWIND COMPwe 
ecs 30 :6R, IF NO PROBLEM 
MOV TSSRCRS),R1 sGEt ssn 
nov Ra sSAVE PACKET ADORESS 
INC FATFLG s8U COUNT 


| TSV7 - HARDWARE TESTS 1-8 
TEST 8: WRITE/READ TAPE MARK 


| 14867 


107226 


012124 
104406 
016501 
032701 
001006 
005237 


104455 
001461 


111370 
000002 


002212 


000007 
111340 
010752 


002212 


000002 
000100 


002212 


111501 
111500 


111360 


30%: 


40%: 
42%: 


50$: 


60%: 


CKLOOP 
MOV 
MOV 
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ERRNO, T26RWN,PKTSSR 


T28BFR+6,R1 

R1,R2 

BiT1,R2 

R1,R2 

403 

FATFLG 

ERRNO, T28B0T , EXPREC 


EXTFEA 
50% 


R4, TSDBCRS) 
PC. CHKTSSR 
50% 


FATFLG 

ERRNO, T28SSR,PKTSSR 
07, T280SW 
@T2BPACKET,R4 

PC, WRTCHR 
608 

FATFLG 

RO,R1 

ERRNO, WRTMSG, SFIMSG 


TSSRCRS),R1 
@OFL ,.R1 


FATFLG 
ERRNO, T280FL , SFIMSG 


SEQ 0312 
;REWIND NOT ACCEPTED 
TRAP §CSERHRO 
.WORD 813 
[wORD = T2 
WORD PKTSSR 
;LOOP IF SELECTED 
TRAP  CSCLP1 
;PICK UP XSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
;BUMP COUN 
;TAPE NOT AT BOT AFTER REWIND 
TRAP § CSERHROD 
.WORD 614 
"WORD T28B0T 
"WORD €EXPREC 
;LOOP IF SELECTED 
TRAP  CS$CLP1 
:CHECK FOR EXTENDED FEATURES SW SWITCH 
;6R IF SWITCH IS ON 
;WRITE MISCELLANEOUS CONT/READ STATUS 
;FUNC. SEL. BIT (TURN ON EXTFEA SWITCH) 
;WRITE SUBSYS MEM PACKET 
:ISSUE COMMAND 
;WAIT or SSR 
BR NO ERROR 
1eRROA. SAVE TSSR 
:BUMP COUNT 
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP —_ CSERHRD 
.WORD 615 
“WORD T28SSR 
‘WORD PKTSSR 


;LOOP IF SELECTED 


TRAP 
sSET UP DRIVE NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
:6R, as ISSUED OK 


8 
;SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC > 


CSCLP1 


CsERHRD 
-WORD 616 
-WORD  WRTMSG 
-WORD  SFIMSG 
sSCOPE LOOP 
TRAP CsCLP1 


:GET TSSR CONTENTS 
;CHECK FOR THE OFFLINE BIT SET 
sBR, IF are (GOOD ) 


OUN 
OFF LINE SHOULD HAVE BEEN SET (BAD) 
TRAP CSERDF 


TSV7 - HAROWARE TESTS 1-8 
TEST 6: WRITE/READ TAPE MARK 


107436 
7 


2530 
012124 


002172 
111340 
010752 
002212 


140011 
111470 


000000 
016340 
000002 


002212 


111370 
000020 


002212 


111370 
100000 


002212 


111360 


111470 


708: 


608: 


UNITN, T280SW 
@T2BPACKET ,R4 
PC ,WRTCHR 

68% 
FATFLG 

RO,R1 

ERRNO, WRTMSG, SFIMSG 


#140011, pate 


FATFLG 
ERRNO, T26WOC , PKTSSR 


T26BFR+6,R1 
R1,R2 
#6IT4,R2 
R1,R2 


FATFLG 
ERRNO, T28VCK ,EXPREC 


T20BER-6,R1 

eeitis. R2 

30h 

ERRNO T2BTHK, EXPREC 
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-WORD T280FL 

.WORD SFIMSG 
sLOOP IF SELECTED 

TRAP CscLPi1 


sSET UP DRIVE NUMBER 

s SUBROUTINE NEEDS PACKET ADDRESS 
SS ee & WRITE CHARACTERISTICS 
:6R, wa ISSUED OK 


sBUMP COUN 
SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTISC > 


C#ERHRO 
"WORD WRTMSG 
“WORD IMSG 
;LOOP IF SELECTED 
TRAP CSsCLP1 
;sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
;SET UP R4 WITH pacKe? ADDRESS 
;ISSUE COMMAND 
;WAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;8R, IF OK 
;BUMP COUNT 
;TSSR INCORRECT AFTER WRITE TAPE MARK 
TRAP CSERHRO 
.WORD 819 
[WORD T28WOC 
WORD PKTSSR 
;LOOP IF SELECTED 
RAP CscLP1 
;PICK UP XSTO (VCK CHECK) 
;SET UP EXPECTED 
:VCK BE 
:IS vCK SET CORRECTLY 
:BR, IF VCK IS CLEAR 
;BUMP COUNT 
;VCK WAS NOT CLEAR AFTER CVC=1 
TRAP CSERHROD 
.WORD 820 
. WORD T286VCK 
. WORD EXPREC 
;LOOP IF SELECTED 
RAP LCSCLP1 
sPICK UP XSTO (CHECK TMK) 
;SET UP EXPECTED 
3 TMK SHOULD 
;WAS TMK SET 
;8R, IF TMK WAS SET 
;BUMP COUNT 
;TMH WAS NOT SET AFTER WRT TAPE MARK 
TRAP CSERHRO 
.WORD 6821 
.WORD T26TMK 
.WORD €EXPREC 


SE@ 0313 


eeepc ere CeCe | 


nn —— 


TSV7 - HAROWARE TESTS 1-8 

TEST 68: WRITE/READ TAPE MARK 
14961 107646 

011104 


000002 
14966 107664 005237 002212 


111370 
000002 


002212 


000012 
140011 
111470 


000000 
016340 
000002 
000200 


002212 


111370 
100000 


002212 


15008 110050 
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111470 


1308: 


1408: 
150$: 


155%: 


165$: 


1808: 


CKLOOP 


CKLOOP 


PC ,REWIND 

130% 

RO,R4 

TSSRCRS),.R1 

FATFL 

ERRNO, T26RWN, PKTSSR 


T28BFR+6,R1 

R1,R 

@8IT1.R2 

R1,R2 

140% 

FATFLG 

ERRNO, T28B0T ,EXPREC 


#10. ,.R3 
#140011, | ates 


TSERCRS), Ri 
@SSR .R2 


R1,R2 


FATFLG 
ERRNO, T28WOC ,PKTSSR 


or “Slade oR1 
eeitis. oR2 


FLG 
ERRNO » T26TMK ,EXPREC 


;LOCP IF SELECTED 


TRAP CSCLPi1 
;CALL TAPE REWIND COMMAND 
;8R, IF NO PROBLEM 
sSAVE PACKET ADORESS 
;GET TSSR STATUS 
;BUMP COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
. WORD 2 
. WORD T26RWN 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CS#CLP1 
sPICK UP XSTO 
;SET UP EXPECTED 
:SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
BR. * EQUAL (OK) 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 3 
-WORD T28B0T 
.- WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLPi 
sNUMBER OF RECORDS TO WRITE TM 
sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
;SET UP R4& WITH PACKET ADDRESS 
:ISS COMMAND 
sWAIT FOR SSR TO SET 
sPICK Ts 
;SET UP EXPECTED (SSR ONLY) 
sWAS STATUS 


;BR, IF TERMINATION WAS GOOD 
;BUMP COUNT 
sTSSR NOT CORRECT AFTER a A. 


CSERHROD 
-WORD 624 
-WORD T26WOC 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CscLP1 
sPICK UP XSTO 
sSET UP EXPECTED 
sSET TMK BIT IN EXPECTED 
sDOES EXP = REC'D 


:8R, IF EQUAL (OK) 
18 OUNT 
TMK NOT SET AFTER WRT i ae 


CSERHRD 
. 825 
-WORD T28TMK 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CscLP1 


SEQ 0314 


TSV7 - HARDWARE TESTS 1-8 


TEST 8: WRITE/READ TAPE MARK 


1 110052 303 
15010 110054 001337 
15011 110056 012700 177777 
15012 110062 737 017512 
15013 110066 013737 003114 
15014 110074 012737 140401 
15015 110102 012704 111470 
15016 11 013737 000024 
15017 110114 010465 000000 
15018 110120 004737 916340 
15019 110124 016501 000002 

110130 012702 100204 
15021 110134 102 

110136 001406 
15023 110140 37 002212 
15027 110144 

110144 1044 

110146 001472 

110150 111674 

110152 0121 
15028 110154 

110154 
1 110156 013701 111370 
15030 110162 010102 
15031 110164 052702 100000 
15032 110170 020102 
15033 110172 001406 
15034 110174 005237 002212 
15038 110200 

110200 104456 

110202 0014735 

110204 1135007 

110206 015564 
15039 110210 

11021 
15040 110212 017701 072676 
15041 110216 012702 177777 
15042 110222 10, 
15043 1102 001406 
15044 110226 37 002212 
15048 1102 

110232 1044 

1102 001474 

1102 113222 

110240 015564 
15049 110242 

110242 
15050 110244 012737 100410 
15051 110252 012737 000001 
15052 110260 012704 111470 
15053 110264 010465 000000 
15054 110270 004737 016340 
15055 110274 016501 000002 

110 012702 100204 
15057 110304 020102 
15058 110306 001 
15059 110310 005237 002212 
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DEC R3 
BNE 155% 
MOV $177777,RO 
JSR PC FILLHEN 
111472 MOV FREE, 
111470 MOV e140i0l, Ore ePK3 
MOV eT2BPKS RA 
111476 MOV T2882 
MOV aa: - Ts0ecRS) 
JSR Pp 
MOV TSSRCRS) 
MOV ossniscséit2, R2 
CHP R1,R2 
BEQ 
INC FATFLG 
ERRHRD ERRNO, T28RDF ,PKTSSR 
200%:  CKLOOP 
MOV T28BFR+6,R1 
MOV R1 
BIS eeitis., R2 
CMP R2 
BEQ 
INC FLG 
ERRHRD ERRNO TBRRM, EXPREC 
210%:  CKLOOP 
MOV @FREE,R1 
MOV @177777,R2 
CMP »R2 
BEQ 2208 
INC FATFLG 
ERRHRD ERRNO, T28DTR,EXPREC 
220%:  CKLOOP 
111470 MOV #100410, T28PK3 
111472 MOV #1, T28RB 
MOV OT28PK3,R4 
MOV R4, TSDBCRS) 
JSR ,WAITE 
MOV TSSR(RS).R1 
MOV @SSR!SC!B1IT2,R2 
CMP R1,R2 
BEQ 223% 
INC FATFLG 


SEQ 0315 


;BUMP COUNTER DOWN 
3;BR, IF LESS THAN 10 TAPE MARKS 
sVALUE TO WRITTEN TO MEMORY 


;READ REVERSE, ACK 
‘SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 


Cc 

sWAIT FOR SSR T 

sGET TSSR CONTENTS 

3SET EXPE 

3 ARE Ye 

;B8R, IF OK 

; BUMP COUNT 

sTSSR INCORRECT AFTER =. DATA 

CSERHRD 
TORO 826 
- WORD T28ROF 
oe .WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLPi 

;PICK UP XSTO 

3SET UP EXPECTED 

3TMK SHOULD BE SET 

3IS TMK SET 

3;8R, IF TMK WAS SET (GOOD) 

;BUMP T 

;TMK NOT SET AFTER READ REV 
TRAP CSERHRD 
. WORD 7 
WORD T28RRM 
-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CSCLP1 


sFIRST LOC IN READ BUFFER 
sEXPECTED IF NO DATA TRANS. 
:01I0 ad DATA <r TRANSFERRED 


3BR, IF NO DATA TRANS (GOOD) 

sBUMP COUNT 

sDATA TRANSFERRED ON READ TAPE MARK 
TRAP CSERHRD 
-WORD 628 
-WORD T28DTR 
-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CsCLP1 


sSPACE REVERSE ,ACK, COMMAND 

;NUMBER OF RECORDS TO SPACE BACK 

iSET UP_R4 WITH PACKET ADORESS 
SUE _ COMMAND 


sSET UP EXPECTED 
sARE THEY EQUAL 
BR, IF OK 
sBUMP COUNT 





_TSV7 - HAROWARE TESTS 1-8 





TEST 8: WRITE/READ TAPE MARK 
15063 110314 


111370 
100000 


002212 


011104 


000002 
002212 


111370 
000002 


002212 


177777 
017512 
0u3114 

00001 


1 
111470 
0000. 
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111472 
111470 


111476 


222%: 


2268: 


2308: 


240%: 


ERRHRD 


ERRNO, T26RDG ,PKTSSR 


T28BFR+6,R1 
R1,R 
#6IT15,R2 
R1,R2 


FATFLG 
ERRNO, T26RRN, EXPREC 


PC ,REWIND 

230% 

RO,R4 

TSSRCRS),R1 

FATFLG 

ERRNO, T28RWN,PKTSSR 


T26BFR+6,Ri 

R1,R2 

#BIT1,R2 

R1,R2 

240% 

FATFLG 

ERRNO, T26B0T , EXPREC 


#177777,R0 


SRCRS),R1 
@SSR!SC!6IT2, R2 
R1,R2 
2458 


sTSSR INCORRECT AFTER SPACE CMD. 
TRAP 


sLOOP IF SELECTED 
TRAP 


sPICK UP XSTO 

sSET UP EXPECTED 

sTMK SHOULD BE SET 

:1S TMK SET 

3BR, IF TMK WAS SET (GOOD) 

;BUMP COUN 

3 TMK NOT SET AFTER SPACE REV 
TRAP 
- WORD 
. WORD 

sLOOP IF SELECTED 
TRAP 

sCALL_TAPE REWIND COMMAND 

BR, IF NO PROBLEM 

sSAVE PACKET ADDRESS 

;GET TSSR 

sBUMP COUNT 

sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 


sPICK ft “sre 

sSET UP_ EXPECTED 

sSET BOT BIT IN EXPECTED 
sDO0ES EXP = REC'D 

sBR, IF EQUAL (OK) 


;BUMP COUNT 

; TAPE NOT AT BOT AFTER — 
- WORD 
. WORD 

sLOOP IF SELECTED 
TRAP 


sVALUE TO WRITTEN TO MEMORY 
sFILL MEM WITH ALL 


WARD . COMMAND 
3SET UP R4 WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 
OMMAND 


;ISS 

sWAIT FOR SSR TO SET 

3GET TSSR CONTENTS 

3SET UP EXPECTED 
THEY EQUAL 


CSERHRD 
829 


T28ROG 
PKTSSR 


CSCLP1 


CSERHRD 
832 
T28B60T 
EXPREC 


CsCLP1 


SEQ 0316 


TSV7 - HAROWARE TESTS 1-8 
TEST 6: WRITE/READ TAPE MARK 
005237 002212 


~ 
ro 
So 
w 
© 


15109 
15113 110536 


111370 
100000 


002212 


104406 
017701 072304 
177777 


002212 


111470 
111472 


111370 
100000 


5156 002212 
15160 110742 


245%: 


2478: 


250%: 


2608: 


INC 
ERRHRD 


FATFLG 
ERRNO, T28WDE ,PKTSSR 


T26BFR+6,R1 

eeitis, R2 

247 

ERRNO T26RRP , EXPREC 


@FREE,R1 
4 pp SA 


250% 
FATFLG 
ERRNO, T2SDTR,EXPREC 


#100410, T28PK3 
05, T28RB 

OT 28PK3,R4 

R4, TSDBCRS) 
PC. WAITF 
TSSRCRS),R 
acsmiscierte, .R2 


FATFLG 
ERRNO, T26RDG,PKTSSR 


T28BFR+6,R1 
R1.R 
#BIT15,R2 
R1,R2 


FATFLG 
ERRNO, T28RRN, EXPREC 
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SEQ 0317 


sBUMP COUNT 
sTSSR INCORRECT AFTER wr DATA ‘ i 


RAP CSERHRD } 
-WORD 833 
-WORD T28WDE 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 
sPICK UP XSTO 
sSET UP EXPECTED 
1x Se BE SET 
’ 


MK SET 
Ne IF TMK WAS SET (GOOD) 
THK NOT SET AFTER READ REV 
TRAP 


C#ERHRO 
[WORD T28RRP 
‘WORD EXPREC 


sLOOP IF SELECTED 
CSCLP1 


TRAP 
FIRST LOC IN READ BUFFER 
sEXPECTED 1F NO DATA TRANS. 
s0ID ANY DATA at TRANSFERRED 


sBR, IF NO DATA TRANS (GOOD) 

sBUMP COUNT 

;DATA TRANSFERRED ON READ TAPE MARK 
TRAP CSERHRO 
- WORD 35 
-WORD T28DTR 
-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CsCLP1 


sSPACE REVERSE ,ACK, COMMAND 
;NUMBER OF RECORDS TO SPACE BACK 
iSET UP _R4 WITH PACKET ADDRESS 


ISSUE COMMAND 
sWAIT FOR SSR TO SET 


sGET TSSR CONTENTS 

sSET UP EXPECTE 

3 ARE EQUAL 

:BR, 

;BUMP COUNT 

sTSSR INCORRECT AFTER SPACE REV CMD. 
TRAP CSERHRD 
-WORD 5636 
-WORD T28RDG 
-WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

sPICK UP XSTO 

;SET UP EXPECTED 

oe ee BE SET 

a 


MK SET 
:8R, IF TMK WAS SET (GOOD) 
3;BUMP T 
3 TMK NOT SET AFTER READ REV 





| TSV7 - HARDWARE TESTS 1-8 
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111366 
000004 


002212 


100410 
00000 

111470 
000000 
016340 
000002 
100204 


o 
~ 
La) 
sd 
w 
~ 
4 


002212 


111376 
000001 


002212 


100010 
000005 
111470 
000000 
016340 
000002 
100204 
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— _ SEQ 0318 
TRAP  CSERHRO | 
.WORD 837 
‘WORD T28RRN 
270%:  CKLOOP LOOP IF SELECTED ane ah 
: L F} 
TRAP _—- C$CLP1 
MOV T26BFR+4,R1 ;PICK UP RESIDUAL BYTE COUNTER 
MOV 04. ,R2 ;SHOULD BE THE DIFFERENCE 
CMP R1,R2 }IS COUNTER CORRECT 
BEQ 2808 ;8R, IF COUNTER CORRECT 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26PBP,EXPREC ;RESIDUAL BYTE COUNTER NOT CORRECT 
TRAP  CSERHRD 
.WORD 638 
"WORD T28PBP 
“WORD EXPREC 
280%:  CKLOOP ;LOOP IF SELECTED 
TRAP CS8CLP1 
111470 MOV #100410, T28PK3 1 SPACE REVERSE ,ACK, COMMAND 
111472 MOV #1, T28RB R OF RECORDS TO SPACE BACK 
MOV OT28PK3,R4 1SET UP R4 WITH PACKET ADORESS 
MOV R4, TSDBCRS) ; ISSUE COMMAND 
JSR PC‘ WAITF ;WAIT FOR SSR TO SET 
MOV TSSRC(RS),R1 ;GET TSSR CONTENTS 
MOV @SSR!SC!BIT2,R2 ;SET UP EXPEC 
CMP R1,R2 ;ARE THEY E 
BEQ :6R, IF 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T28RDG,PKTSSR ;TSSR INCORRECT AFTER SPACE CMD. 
TRAP CSERHRD 
.WORD 839 
“WORD T28RDG 
"WORD PKTSSR 
290%:  CKLOOP ;LOOP IF SELECTED 
TRAP —- C$CLP1 
MOV T26BFR+14,R1 ;PICK UP XST3 
MOV R1,R2 ;SET UP EXPECTED 
BIS @B1T0,R2 ;RIB SHOULD BE SET 
CMP R1,R2 31S RIB SE 
BEQ ;8R, IF RIB WAS SET (GOOD) 
INC FATFLG ;BUMP C 
ERRHRD ERRNO, T28RIB.EXPREC ;RIB NOT SET AFTER READ REV 
TRAP § CSERHRD 
.WORD 6840 
“WORD © T26RIB 
“WORD teXPREC 
300%:  CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 
111470 MOV #100010, T28PK3 ;SPACE FORWARD,ACK, COMMAND 
111472 MOV 28 ;NUMBER OF RECORDS TO SPACE FORW. 
MOV OT28PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
MOV R4, TSpBCRS) SUE COMMAND 
JSR PC WATT ;WAIT FOR S 
MOV TSSRCR ;GET TSSR CONTENTS 
MOV TSGRCRS) RL R2 ;SET UP EXPE 
CMP R1,R2 ; E 
BEQ 310% :BR, IF OK 
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| SEQ 0319 
| TEST 6: WRITE/READ TAPE MARK 


15207 111170 005237 002212 INC FATFLG sBUMP COUNT 
15211 111174 ERRHRD ERRNO, T28RDF ,EXPREC 3TSSR INCORRECT AFTER at CMO. 
111174 104456 CSERHRD 
111176 THORD 641 
1 111674 . WORD T28ROF 
111202 - WORD EXPREC 
15212 111204 3108: CKLOOP 3sLOOP IF SELECTED 
111204 104406- TRAP CSCLPi 
15213 111206 013701 111370 MOV T28BFR+6,R1 sPICK UP XSTO 
15214 111212 010102 MOV R1,R2 3SET UP EXPECTED 
15215 111214 052702 100000 BIS #68IT15,R2 37MK SHOULD BE SET 
15216 111220 020102 CMP R1,R2 iIS TMK SET 
15217 111222 001406 BEQ 320% ;68R, IF TMK WAS SET (GOOD) 
15218 111224 005237 002212 INC FATFLG ;BUMP OUN 
15222 111230 ERRHRD ERRNO, T26RRP ,EXPREC 3;TMK NOT SET AFTER READ REV 
111230 1 TRAP CSERHRD 
111232 001512 - WORD 842 
111234 113144 -WORD T28RRP 
111236 C15564 .- WORD EXPREC 
15223 111240 3208: CKLOOP 3sLOOP IF SELECTED 
111240 104406 RAP CSCLPi 
15224 111242 013701 111366 MOV T28BFR+4,R1 sPICK UP RESIDUAL BYTE COUNTER 
15225 111246 012702 000004 MOV 4. ,R2 sSHOULD BE THE DIFFERENCE 
15226 111252 020102 CMP R1.R2 iIS COUNTER CORRECT 
15227 111254 001406 BEQ 330% 368R, IF COUNTER CORRECT 
15228 111256 005237 002212 INC FATFLG ; BUMP COUNT 
15232 111262 ERRHRD ERRNO, T28P6P ,EXPREC ;RESIOUAL BYTE COUNTER NOT Oe * 
111262 104456 TRAP CsERHRD 
111264 001515 - WORD 843 
1266 111611 - WORD T2ePeP 
111270 01 .- WORD EXPREC 
15233 111272 330$: CKLOOP ;LOOP IF SELECTED 
111272 104406 TRAP CSCLPi1 
15234 111274 ENDSUB 3<<e<eeceec*e END SUBTEST >>>>>>>>2>> 
111274 L10133: 
111274 104403 TRAP Csesus 
15235 111276 023727 002212 000017 CMP FATFLG, 415. :IS ERROR COUNT AT 25 
15236 111304 103402 BLO 999% ;6R. IF LESS THAN 25 
15237 111306 004737 017272 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
15238 111312 999%: 
15239 3 
13349 
H 
15242 111312 004737 016546 JSR PC, TSTLOOP 3:00 WE NEED TO ITERATE TEST 
15243 111316 103002 BCC 163% 38R, IF NO LOOP REQUIRED 
15244 111320 000137 106200 JMP T28LO00P sEXECUTE AGAIN 
15245 111324 163%: 
15246 111324 EXIT TST sALL DONE THIS TEST 
HHEES 222832 "Neo EI6%35 
15247 - > N 
15248 sini 3° P 
tasep sLOCAL STORAGE FOR THIS TEST 
5250 ge 
15252 111330 .BLKB 10-<.,-TSV2E7> 
15254 111340 T28PACKET: sCOMMAND PACKET FOR TEST 


15255 111340 100004 -WORD 100004 ;WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 





| TSV7 - HARDWARE TESTS 1-8 
| TEST 68: WRITE/READ TAPE MARK 


11342 1113550 
11344 000000 
15258 111346 000012 
15260 111350 111362 

000000 
11354 000024 


teeee 
152635 111356 000000 
11360 000000 


15292 111500 010 
200 


15302 111506 101411 
102011 


111520 100411 
15308 111522 101011 
15309 111524 177777 


- WORD errs: 


. WORD 

-WORD 10. 
T28DATA: 

-WORD T28BFR 

-WORD O 

-WORD 20. 


-WORD O 
T260SW: .WORD O 
T26BFR: .BLKW 25. 
;WRITE SUBSYSTEM MEMORY COMMAND PACKET 


: 
-BLKB 10-<.-TSV2E7> 


T28PK2: 
. WORD 100006 
.WORD T2eBF2 
- WORD 0 
-WORD 6. 
.-BLKB 10-<.-TSV2E7> 

T28PK3: 
. WORD 100005 

T28RB: 

T28WB: .WORD FREE 
» WORD 0 

T28SZ: .WORD O 
-EVEN 

; 

3 

128BF2 


T26BS1: .BYTE 200 
T28S2: .WORD 0 
T2683: .WORD 0 


EVEN 
sTAPE MOTION PACKET COMMAND VALUES 
T26IMV: 


.WORD 101411 
"WORD 102011 
"WORD 103411 
"WORD 177777 
T28RN: [WORD 100011 
T2BWOR: [WORD 10041 
T28CON: {WORD 101011 
"WORD 177777 
T28CNT: .WORD 
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SEQ 0320 


sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 0 
sMESSAGE BUFFER 


;WRITE SUB SYS MEM COMMAND 
;ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


IE AND ACK 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


sBSELO AREA 
sBSEL1 AREA 
sSEL 2 AREA 
sDATA AREA 


sILLEGAL MODE BITS TEST DATA 


sWRITE TAPE MARK COMMAND 
sERASE COMMAND 

sWRITE TAPE MARK RETRY 
sEND OF DATA 


sTAPE TIMER COUNTER STORAGE AREA 
sTAPE TIMER COUNTER STORAGE AREA 
sDELAY COUNTER 





| TSV7 - HARDWARE TESTS 1-8 
TEST 6: WRITE/READ TAPE MARK 


| 

15317 
15316 
15319 
15320 
15321 
13328 111534 124 141 
15323 111611 122 145 
15324 111674 124 123 
15325 111755 124 123 
15326 112037 124 123 
15327 112114 111 154 
15328 112175 127 122 
15329 112246 124 123 
15330 112337 124 141 
15331 112404 124 123 
15332 112461 122 145 
15333 112530 104 162 
15334 112603 124 123 
15335 112662 103 126 
15336 112735 124 115 
15337 113007 124 115 
15338 113065 124 115 
15339 113144 124 115 
15340 113222 104 141 
15341 113504 104 141 
15342 113401 127 162 
15343 
15344 
15345 
15346 
15347 
15348 
15349 
15350 
15351 113426 
15352 113426 
15353 115432 012701 1113540 
15354 113436 012721 100004 
15355 113442 012721 111550 
15356 113446 005021 
15357 113450 012721 000012 
1 113454 012721 111362 
15359 113460 
is 113462 012721 000024 
15361 113466 
15362 113470 012711 
15363 113474 012702 000030 
15364 113500 012762 1/7777 
15365 113506 005742 
15 113510 0202 0000006 
15367 113514 001371 
15368 115516 
15369 
15370 
15371 113520 
15372 113520 
15373 115524 012701 111450 


111362 
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;LOCAL TEXT MESSAGES FOR TEST 
t- 


T26RIB: .ASCIZ ‘Tape Position Not Correct, RIB Should Be Set’ 
T26PBP: . ‘Residual Byte Counter acnh ieccnse CRBPCR) Not Correct’ 
"TSSR Incorrect After RE SE Into TAPE MARK’ 
‘TSSR Incorrect After SPACE Command Into TAPE MARK’ 
. ‘TSSR Not Correct After Illegal Mode Bits Set’ 
T26L0Q: .ASCIZ ‘Illegel Mode Bits, Feiled To Set ILC Bit In XSTO’ 
‘WRITE MISCELLANEOUS Commend Not Accepted’ 
‘TSSR Not Correct After READ DATA Command. Into TAPE MARK‘ 


‘TMK Not Set After READ FORWARD T MARK 
: .ASCIZ ‘Dete Transferred On READ REVERSE Into A TAPE MARK’ 


-ASCIZ rite/Read Tape Mark 


* 


; ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 

: 

3 ~ 


‘Date Compare Error, Dete Read From Tape Not Equel To Written’ 


SEQ 0321 


T26REST: 

SAVREG 4+ THE REGISTERS 

MOV pf ove gy SE Ri sSTAR THE PACKET 

MOV #100004 , (R1)+ ‘RITE eee aren MEM. WITH ACK, 

MOV @T28DATA, (Ris sADORESS OF CHARAISTICS DATA BLOCK 

CLR (Ride SEXTENDED Ss 

MOV #10. ,(R1)+ sSIZE OF DATA BLOCK IN BYTES 

rot eT2e6rR, eCR1D« sADDRESS OF MESSAGE BUFFER 

wy tte CR1D« sLENGTH OF MESSAGE BUFFER 

MOV + AF sSELECT ORIVE ZERO 

MOV NUMBER OF LOCATIONS TO BE CLEARED 
64%: MOV eit, T28BFRC(R2) : ONES TO MESSAGE BUFFER 

TST -C(R2) sNEXT LOCAT io 

CMP R2,00 sCHECK FOR END 

BNE 643 iKEEP GOING UNTIL DONE 

RTS PC sRETURN 
T26RT2: 

Saunas sSAVE THE REGISTERS 

@T26PK2 ,R1 sSTART OF THE PACKET 
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SEQ 0322 


15374 113530 012721 100006 MOV #100006, (R1)-+ ;WRITE SUBSYSTEM MEM. WITH ACK, | 
15375 113534 012721 111500 MOV @T288F2,(R1)+ sADDRESS OF DATA BLOCK 
15376 113540 005021 CLR (Ride EXTENDED ADORESS 
15377 113542 012721 000006 MOV @6.,(R1)> ;SIZE OF DATA BLOCK IN BYTES 
i 378 13 005021 CLR (Rid- | 
| 4353 i33s0 012701 111500 MOV 6T28BF2,R1 ;POINT TO DATA SEL AREA 
15380 113554 005021 CLR (R1)+ 
15381 113556 005011 CLR CR1 
15382 113560 000207 RTS PC sRETURN 
15383 113562 T26RTS: 
15384 113562 SAVREG 
15365 113566 012701 111470 MOV @T26PK3,R1 :GET PACKET ADDRESS 
15386 113572 005021 CLR (R1)+ ;CLEAR COMMAND AREA 
15387 113574 005021 CLR (R1)+ ;CLEAR ADORESS AREA 
15388 113576 005021 CLR (R1)+ ;CLEAR EXTENDED ADORESS AREA 
15389 113600 005011 CLR (R1) ;SIZE OF DATA TRANSFER 
15390 113602 000207 RTS PC ;RETURN 
15391 113604 ENDTST 
113604 110130: 
113604 104401 TRAP CSETST 
15392 113606 ENDMOD 
15393 “TITLE TSV6 - PARAMETER CODING 
15399 
15404 
15410 
15411 113606 BGNMOD TSV6 
15612 113606 TSV6:: 
13415 .SBTTL HARDWARE PARAMETER CODING SECTION 
15415 oe 
15416 : THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
15417 ; THAT ARE USED BY THE SUPERV VISOR TO BUILD P-TABLES. THE 
15418 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
15419 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
15420 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
15421 ; WITH THE SPERATOR. 
15422 t-- 
15423 113606 BGNHRD 
113606 000010 .WORD L10134-L$HARD/2 
a3en6 113610 LSHARD: : 
1 113610 GPRMA HPM1,0,0,160010,177776, YES :GET TSBA/TSDB REGISTER ADDRESS. 
113610 000031 -WORD  TSCOOE 
113612 113630 "WORD HPM1 
113614 160010 “WORD TSLOLIM 
113616 177776 "WORD TSHILIM 
15426 113620 GPRMA HPM2.2,0,0,776, YES :GET VECTOR ADDRESS. 
113620 001031 -WORD TSCOOE 
113622 113664 “WORD 
113624 000000 "WORD TSLOLIN 
15427 enema noatdte CORD lona-a'o 340,0,7. YES GET INTERRUPT PRIORIT 
Fee oVeole 3 Ws 
15428 113630 ENOHRO 


0134: © 
15429 113630 104 105 126 HPM1:  .ASCIZ ‘DEVICE ADDRESS (TSBA/TSDB) ° 
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| HARDWARE PARAMETER CODING SECTION 


15430 113664 111 116 124 HPM2: -ASCIZ ‘INTERRUPT VECTOR ‘* 
ert 113710 111 116 124 PMS: ra ‘INTERRUPT PRIORITY 4 


SEQ 0323 


i 
' 
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SOFTWARE PARAMETER CODING SECTION 


34 
tee 
37 
38 
15439 
i 
1 
isaaa 113740 
11374¢ 000003 
15445 113742 
ideas 333703 
fea fun 
1137 179797 
13447 
15449 113750 
113750 
i 113750 05 
114000 111 116 
114030 105 
: 114060 105 
a 
114110 
114110 
114400 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


3¢° 
3s THE SOFTWARE PARAMETER nerd TION CONT 
3s THAT ARE USED BY THE Son fo GumLD p-Tasues.” f THE 
3s MACROS ARE NOT EXECUTED aS fi BUT ARE 
s INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES” THE 
3 MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
s WITH THE OPERATOR. 
3-7? 
BGNSFT 
-WORD L10135-L¢SOFT/2 
ao owe 
GPR 86 SPM1.0,-1. YES s GET TRANSPORT TEST FLAG. 
GPRAL a 2.-1.VES 3s GET ITERATION CONTROL. 
.WORD TSCObE 
-WORD SPMée 
WORD a} 
r GPRHD -4.0,7777.0,7777. YES s GET LOCAL ERROR LIMIT 
8 oF SPH7, ‘6. 0.7777.0,7777, YES 3s GET GLOBAL ERROR LIMIT 
-EVEN 
110135: 
SPH1: -ASCIZ ‘ENABLE a a TESTS ‘ 
SPm4: -ASCIZ ‘INHIBIT ITERATIONS . 
SP M6: -ASCIZ ‘PER Test. ERROR LIMIT ° 
SPH? : -ASCIZ ‘PER UNIT ERROR LIMIT ° 
-SBTTL PATCH AREA 


s FINALLY A GENEROUS PATCH AREA. 


; AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7” HACK 
s DESCRIBED IN “SUPPRG.MEN” (FOR REV C). 
s 


PATCH: : 


sSET LAST USED ADORESS. 
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SEQ 0325 
, Symbol teble 
ADOSSR 012216 G CsAU_ = 900052 DEVORO 4 003114 017134 
ADR # 000020 G C#AUTO= 00006 VNRD 024225 FREEHI 003120 INTCPC 016240 
AMBTSS 006725 C8BRK = 000022 DEVNXR 024143 FRESIZ 003116 INTFLA 016235 
AS * 000010 C#BSEG= 000004 DEVONL 0240735 VU 004115 INTMAS 016234 
A1716 = 000003 C#BSUB= 000002 DEVSUM 024036 $AU__= 000015 NTR 016306 G 
BADD. 003146 G C8CEFG= 000045 DFPTBL 002146 G FSAUTO= 000020 INTREC 002214 G 
BADSSR 015770 G C#CLCK= 000062 OI « $BGN = 000040 INTVEC 016236 
60 # 177520 G CSCLEA= 000012 DICEC = 00000 FSCLEA= 000007 INTX 00427 
BENBSW 002220 G C&CLOS= 000035 OSBINT 016274 $0U_ = 000016 INVERT 021252 G 
BIE = 040000 CsCLPi= DUAD1I2 004641 FSEND = 000041 IOKCKI= 0002 
BITO = 000001 G C&CVEC= 000036 DOUFLG 003102 G FSHARD= 000004 IOKSTP= 1 
BITOO = 000001 G CSOCLN= DUMMY 003052 FsHW = 000013 IPRI 002202 G 
BITO1 = 000002 G C#000U= 000051 EF .CON= 000036 G FSINIT= 000006 * 000100 G 
BITO2 = 000004 G CSDORPT= 000024 EF .NEW= 000035 G FSJMP = 000050 IvEC 002200 G 
BITOS = 000010 G Cs0U__= 000053 EF .PWR= 000034 G F$MOD = 000000 XE = 004000 G 
BITO4 = 000020 G CsEDIT= 000003 EF .RES= 000037 G FSMSG = 000011 IsAU_ = 000041 
BITOS = 000040 G CSERDF= 000055 EF .STA= 000040 G FSPROT= 000021 ISAUTO= 000041 
BITO6 = 000100 G CSERHR= 000056 EMAXDU 017067 FSPWR = 000017 ISCLN = 000041 
BITO7 = 000200 G CsERRO= 2 FSRPT = 000012 IsDU) = 000041 
BITOS = 000400 G CSERSF= ENAINT 016242 FSSEG = 000003 ISHRD = 000041 
BITO9 = 001000 G CSERSO= 000057 ENVIRN 020720 FSSOFT= 000005 ISINIT= 000041 
ITi =» 000002 G CSESCA= 000010 EPRTSW 002170 G FSSRV = 000010 IsMOD = 000041 
BIT10 = 002000 G CSESEG= 000005 EPRT1 0063 FSSUB = 000002 IsMSG = 000041 
BIT11 = 004000 G CSESUB= 000003 EPRT2 4 F$SW = 000014 IsPROT= 000040 
BIT12 = 010000 G CsETST= 000001 ERCM 012023 FSTEST= 000002 ISPTAB= 000041 
BIT13 = 020000 G C#EXIT= 000032 ERRHI 002226 G DAT 003150 G IsPwR = 000041 
BI114 = 040000 G C8GETB= 000026 ERRK 017046 GERRMA 002164 G IsRPT = 000041 
BIT1S = 100000 G C&8GETW= 000027 ERRLO 002230 G GETPAT 020264 G I#SEG = 000041 
BIT2 = 000004 G C&GMAN= 000043 ERRNO = 001513 GETSEL 020346 G ISSETU= 000041 
BITS = 000010 G C8GPHR= 000042 ERRVEC= G GSCNTO= 000200 ISSFT = 000041 
BIT4 = 000020 G C&GPLO= 000030 ERTABE 003366 GSDELM= 000372 ISSRV = 000041 
BITS = G C&GPRI= 000040 TABL 003166 G$DISP= 000003 i$SUB = 000041 
BIT6 = 000100 G CSINIT= 000011 ESUM 017050 GSEXCP= 000400 IsTST = 000041 
BIT7 = 000200 G CSINLP= 000020 . G G$HILI= 000002 J$JMP = 000167 
BIT8 = G C&MANI= 0000 EXBCNT= 1 GSLOLI= 000001 KIPARO= 172340 
BIT9 = 001000 G CSMEM = 000031 xIT 035 G$NO = 000000 KIPARi= 172342 
BOE = 000400 G CSMSG = 000023 EXPBRE 015572 G GSOFFS= 000400 KIPAR2= 172344 
BRINIT 004455 CSOPEN= 0000 EXPO 002222 G GSOFSI= 000376 KIPARS= 172346 
BSELO = CSPNTB= 000014 EXPGOT 004531 GSPRMA= 000001 KIPAR4= 172350 
BSEL1 = CSPNTF= 000017 EXPGT2 004565 G$PRMD= 000002 KIPARS= 172352 
CHKAMB 016134 CSPNTS= 000016 EXPMSG 002312 G G$PRML= KIPAR6= 172354 
020570 G CSPNTX= 000015 EXPREC 015564 G G$RADA= 000140 KIPAR7= 172356 
CHKTSS 016426 CsQI0O = 000377 EXTA 005770 G$RADB= 000000 KIPDORO= 172300 
017272 CsROBU= EXTEND 005766 G$RADD= 000040 KIPORi= 172302 
CKEMAX 017172 CSREFG= 000047 EXTFEA 002216 G GSRADL= 000120 KIPOR2= 172304 
011450 G CSRESE= 000033 $END = 002100 G$RADO= KIPORS= 17 
011570 G CsREVI= 00000 ESLOAD= 35 GSXxFER= KIPOR4= 172310 
CKRAM O11 G CsRFLA= 000021 TAL 035304 G$YES = 000010 KIPORS= 172312 
CKRAM2 011314 G $RPT = 0000, FATERR= HIADDR= 001400 KIPOR6= 172314 
CMOPKT 022170 G CSSEFG= FATFLG 002212 G = 1 G KIPOR7= 172316 
017750 CSSPRI= 00004 FERCM 012012 HPM1 113630 KTENAB 3124 G 
CONFIG 017340 C&SVEC= 000037 FIFEXP 012260 G 13664 KTFLG 003122 G 
Cc 2 G CsTPRI= 000013 FIFIMS 012332 HPMS 113710 KTINIT 021100 
CSRADOD 176 G DATA 002302 G FIFQMS 012401 IGE = G KTOFF 017364 
CTAB 003154 G DATASC 020322 FILLME 017512 Idu- = 0G KTON 017346 
CTABE 003166 G BUGM 011722 FNOINT 004213 IER = 020000 G LERRMA 002162 G 
CTABM 003154 G DEVCNT 002210 G FORCER (02166 G IFAULT 004254 LISTAL= 000001 
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Syabol teble 
LOE = 040000 G LSUNIT 602012 G 110071 
LOOPCN 206 G £10000 002154 10072 
LOOPCO 013216 L10001 002166 £10073 
LOOPFL 003152 G L10002 0057 L10074 
LOT © 000010 G L1000$ 012134 L10075 
L8ACP 002110 G L10004 0121 L10076 
L8APT 002036 G L1000S 012170 L10077 
/L8AU =: 023262 G L10006 012176 L10100 
$AUT 002070 G 110007 012214 £10101 
| LOAUTO 023466 G L10010 012232 L10102 
L8CCP 002106 G L10011 O12 L10103 
LOCLEA 023546 G 10012 012330 L10104 
L8CO 002032 G 110013 L10105 
L8DEPO 002011 G 110014 013214 L10106 
L8DESC 003400 G L10015 01 L10107 
L8DESP 002076 G L10016 O01 £10110 
L8DEVP 002060 G L10017 015570 (10111 
L8DISP 002124 G L10020 015576 L10112 
L8OLY 002116 G L10021 01 110113 
L8DTP 002040 G L10022 015616 110114 
LSOTYP 002034 G L10023 015640 110115 
Ls0U 023360 G L10024 015666 110116 
sOUT 002072 G L10025 016026 L10117 
L8OVTY 003372 G Li 016336 £10120 
L8EF 002052 G L10030 023212 L10121 
LS8ENVI 002044 G L10031 023356 L10122 
L8ETP 002102 G 100 110123 
LS8EXP1 002046 G L10033 023 L10124 
L8EXP4 002064 G 10034 023572 110125 
LSEXPS 002066 G L10035 024034 110126 
L8HARD 113610 G L10036 025470 110127 
LSHIME 002120 G L10037 030150 £10130 
L8HPCP 002016 G L10040 026076 £10131 
L8HPTP 002022 G L10041 20 L10132 
Lew 6—-:-002146 G L10042 027000 110133 
L8ICP 002104 G L10043 035330 110134 
L8INIT 022466 G L10044 0305 110135 
LSLADP 002026 G L10045 031426 
LS8LAST 114404 G L10046 032246 MEMCK 
L8LOAD 002100 G 110047 0 MENASC 
L8LUN 002074 G L10050 0330 MENERR 
L8MREV 002050 G L10051 033374 MENRES 
LSNAME 002000 G L10052 047574 ec = 
L8PRIO 002042 G L10053 MSA.FRe 
LSPROT 022456 G L10054 036 MSA_.NO= 
L8PRT 002112 G L10055 037336 MSA_NR= 
$REPP 002062 G L10056 MSA_VO= 
L8REV 002010 G 110057 MSGE 
L8RPT 023574 G L10060 041140 MSGL 
L8SOFT 113742 G £10061 041574 MSGSTA 
L8SPC 002056 G L 10062 1 MSGSUB 
L8SPCP 002020 G L10063 042670 MS. ATT= 
L8SPTP 002024 G 110064 043134 MS.EXT= 
L8STA 002030 G L10065 MS_RSD° 
Lssw 6 002156 G 110066 043672 MS _RSFe 
LS8TEST 002114 G 110067 044172 MS_RST= 
LeTIm 002014 G L10070 0446 MBi86 


— 
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an 


Ana 


aan 


QAHOHAGD 


PRBEXP 


ZB5Ug Ey IBIEEEBERIESIEIEEEBIEITE 
gaeuegasacearansegcnseigesy ae 


iit 





SEQ 0326 


ee ee ed 


TSV6 - PARAMETER CODING MACRO YOS.02 Mondey 16-Sep-85 15:41 Page 78-3 


SEQ 0327 
Syabol teble 
P.IE = 000200 SPM6 114030 TSREJ = 000006 TS$CLE= 010034 T22WRT 027170 
P .INIT= 0000135 SPM7 114060 TSSDEF 006676 T¢$s0U = 010032 T23A 003134 G 
P .MODE= 007400 SRO = 177572 TSSR = 000002 G TS$HAR= 010134 T23AM3S 034220 
P.OPP = 020000 SR1 * 177574 TSSRBI 003500 G TS$$HW = 010000 T238 003136 G 
P.POSI= 000010 SR2 = 177576 TSSRFO 006505 TS$INI= 010030 T238A O 
P.READ= 1 SRS = 172516 TSSRH = 000003 G TS$MSG= 010025 T238FR 033462 
P.SWB = 010000 = 000200 TSSX 004016 T$$PRO= 010027 T238F2 033602 
P .WRITe STATCO 012502 TSTBLK 002742 G TS$RPT= 010035 T238S0 033602 
P.WRTC= 000004 # 000000 TSTCNT 002204 G T$$SOF*= 010135 T238S1 03 
P.WRTS= SVCINS= 000000 TSTEND 017010 TS$$SRV= 010026 T2 035142 
ave 002174 G VCSUB= 000001 TSTFLA G T$$SUB= 010133 23c 03 
RAMASC O SVCTAG= 000000 TSTLOO 016546 G T$$SwW = 010001 T23DAT 033450 
RAMDAT 002232 G SVCTST= 000001 TSTPTR 002306 G TS$TES= 010130 T230SW 03 
RAMERR 015600 G SSLSYM= 010000 TSTSET 016600 G T1 024356 G T23EOT 033744 
RAMEXP ©15620 G $0.IDB= 000010 TST2iI 025314 Te 025472 G T23ET 033657 
RAMFOR 010206 SO.IFB= TST22I 027757 T2.1 025522 T23L00 0302 
RAMSIZ 002272 G SO.IFP= 000001 TST23I 034746 T2.2 026114 T230FL 
RAMTAD 015606 G $O.ILD= TST24I 047342 T2.3 026436 T23PAC 0 
RCVHIA 002274 G SO.ION= 000040 TST2sI T21AM3 025173 2 
RCVLOA 002276 G $O.IRD= 000100 ST26I 075707 T21BFR 024774 T23PK3 033570 
ROERR SO.IRW= TST27I 105743 T218F2 025070 T23RES 034762 
RECMSG 002456 G $0.ISP= 000200 TST26I 113401 T218S0 025070 T2 034145 
RECV 002224 G $1.ICE= Vv 00. G T218S1 7 T23RSZ O 
REGSAV 0202 $1.IEO= 010000 TSv3 002166 G T21DAT 7 T23RT2] 
RETERR 005370 $1.IFM= 001000 TSV4 022456 G T210LY 024772 T23RT3 035116 
RETRY O38 $1.IHE= 000400 TSV6 G T210SW 024770 T2 
REWIND 011104 G $1.IID= 004000 TSV7 024356 G T21L00 024406 T23SSR 03 
RMCHBE= 000167 $1.IiR= 020000 TTIBFR= 177562 G T210FL 73 T23SZ 033576 
RMCHENe $1.I2R= 040000 TTICSR= 177560 G T21PAC 024750 23 
RMMSGB= 000215 S1.PAR= 100000 TTIVEC= G T21PK2 02 T2383 033606 
RMMSGE= 000234 $2.ATI* 000010 SARGC= 3 T21RES 025336 T23T™M 0 
RMPKTB= 000201 S2.8TI= TSCODE= 001130 T21RT2 T23TMP 033610 
RMPKTE= 000210 $2.0IM= ERRN= 001513 T21SSR 025076 T23VCK 
RMR = 010000 $2.ILW= 000100 TSEXCP= T2i1 025072 033572 
RWPACK 011200 S2.INR= TSFLAG= 000040 T2183 0250 T23WD 033614 
sc = 1 $2.0UT= $ s T22AM3 027275 T23wOC O 
ScE = S2.UND= 000003 TSHILI= 000776 T22BFR O27 
SCHERR 005276 TBLEND= 003052 G TSLAST= T228F2 027160 T23WOR 033616 
SCME TCOASC TSLOLI= 027160 T23WRT 033612 
SDELAY 010750 TCOCOD 006766 TSLSYM= 010000 T22BS1 027161 T23WSS 034657 
SELASC TEMP1 003106 G TSLTNO= 10 T22DAT 027050 T24AM3 046330 
SELDAT= T 003110 G TSNEST= 177777 OR 027174 T24BA 
SEL2 = TERCLS= 16 T$NSO = T22L00 025522 T24BFR 044742 
SETMAP 017406 TESTNO= 000010 TSNS1 = T220FL 027375 T248F2 
SETU TEXASC T$NS2 = 000002 T22PAC T2480T 045723 
SFFMSG 012172 G TFCASC 7 TSPTNU= 22PK2 027150 T248S0 
TIMEXP G TSSAVL= 177777 T22P0S 027172 T248S1 
SFIERR TiMSGO 015670 TSSEGL= 177777 T22RD 027166 T24CON 045072 
012124 G TINERR 012111 TS$SUBN= 3 T22RES 030012 T24DAT 
SFPTBL 1 TMPBFR 002622 G TSTAGL= 177777 T22RT2 030104 T240LY 045076 
SIFLAG 003144 G TNAM 016774 TSTAGN= 010136 T22RWJ 027544 7 
TI TRANST 002156 G TSTEMP= T22SSR 027200 T240TA 045770 
SKIPT 003370 TSBA = 000000 G TSTEST= T22 027162 T24E0T 
INI TSBAH = 000001 G TSTSTM= 177777 T2283 027164 T24ILA 045452 
SPACE TSOB = 000000 G TSTSTS= T22TM 027450 T24L0N 
SPM1 113750 TSOBH = 000001 G TS$$AU = 010031 T22vCK 027617 T24L00 035376 
1 TSFCOD 007326 TS$AUT= 010033 T22WLK 027672 T24L0P 
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SEQ 0328 
T2S5SSR 0655154 T26WOC 075020 T27WOR 103000 T39BFR 021436 
T25SZ 055126 T26W00 074730 T27WNG 103014 T398SO 021430 
T 035132 T26WOE 074123 T27WRF 10 T398S1 021431 
T25S3 055134 T26WOF 073731 T27WSS 104722 021432 
T2STM S T 073166 T26BFR 111362 T39O0LY 021414 
T2SwB. 055122 T26WSS 075221 T286BF2 T390SW 
T25woCc T27AMS 104307 T26B0T 112337 T390TA 022130 
T2SWOE 055235 1 7 268 11 T39EAI 0221356 
T25WOR 055140 10 T26BS1 111501 021420 
T278F2 102770 T26CNT 111526 T39PK2 022120 
055700 T2780T 1 T26CNU 111530 T39PKS 022150 
T26AM3S 07 SO 102770 BCON 111522 T39PK4 022160 
T26B8A 075146 T276Si 102771 T28DAT 111350 T39SIZ 022166 
7302. CNT 10 260LY 111532 021430 
T268F2 073140 T27CNU 103010 Te80SW 111 T3OWR 2 
T26B80T 074175 T27CON 103002 T260TA 3 035332 G 
T268S0 073140 T27DAT 10264 113222 T4.1 035376 
T268S1 073141 T270LY 103012 T26IMv 74.10 2 
T26 1 T270SW 102650 26L T4.11 043152 
T 073160 T270TA 10 T26L0Q@ 112114 T4.12 043424 
T26DAT 073010 T27EOT 104031 T260FL 74.13 043710 
T Y 073164 7LON 105011 T26PAC 111340 74.14 044210 
T260SW T27L00 076146 2 111611 14.2 036020 
T260TA 074242 T27LOP 1050735 T26PK2 14.3 
T26EOT 074330 T27L0Q@ 103455 T26PK3 111470 14.4 037354 
T 075310 T27LOR 103330 T26RB_ = :111472 T4.5 0056 
T26L00 056570 T27NEF 105331 T26ROF 111674 4.6 040522 
T26LOP 075372 T270FL 104356 T26RDG 111755 14.7 041156 
T26L0Q@ 0 T27PAC 102630 T26RES 113426 14.8 041612 
T26LOR 073661 T27PBP 105155 T26RIB 14.9 22 
T26NEF 073254 T27PK2 102740 T26RN 111516 TS 047576 G 
T26NEQ 0 T27PK3 102760 T26RRM 11 75.1 047626 
T260FL 074655 T27RB_ 102762 T26RRN 113065 15.2 
T26PAC 07 27 103102 T26RRP 113144 5.3 1 
07 T27RES S7 T26RT2 113520 15.4 051656 
26PK2 073110 T27RN 102776 T26RTS TS.5 0S2322 
T26PK3 073130 T27RNC 104234 T26RWN 112461 5.6 os 
073132 T27RRF 103151 T28SSR 112175 $.7 054022 
073336 T27RT2 106056 T26SZ 111476 TS.8 054342 
T26RES 075720 T27RTS 106120 T26S2 111502 T6 056524 G 
T26RN 073146 WN 104165 T26S3 =111504 T6.1 056570 
T26RNC 074533 T27SC_ 103246 T26TM 112404 T6.10 066210 
T26RRF 073405 T27SCF 105427 T28TMK 112735 76.11 067064 
T 073502 T27SSR 103536 T26VCK 76.12 067734 
T26RSZ 073162 T27SZ 102766 28 111472 T6.13 
T26RT2 076012 Te7S2 102772 T28WOC T6.14 071716 
T26RTS 076054 102774 T26WDE 112246 T.15 072276 
T 7 T27TIM 103754 T26WOF 112037 T6.2 
T26SC_ 073577 T27TM T28WOR 111520 6.3 060350 
T26SSR 074067 T27TRL 105243 T3 G T6.4 061242 
T26SZ 073136 T27TSA 105504 T3BFLG 003140 G 6.5 062170 
T26S2 073142 T27vVCK 104574 T3.1 030222 T6.6 062746 
T26S3 073144 T27WB_ 86102762 T3.2 6.7 063610 
T26TM 074407 T27WwOC 104521 3.3 031444 16.8 
T26TRL 075542 T27WOD 104431 T3.4 032264 6.9 065334 
T26VCK 0750735 T27WOE 103572 T3.5 032500 1? 076106 G 
T26wB 4386073132 T27WOF 103400 13.6 033046 T7.1 076146 
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Symbol teble 
77. 6544 .I0T* 000100 
17. 077326 “its 900040 
(17.4 001 -T5R= 0000. 
17.5 101052 WF .IED= 000010 
18 106144 G WF IER= 
18.20 WF. IHI= 000200 
| T8.2 106560 WF. IRE= 000040 
| T8.3 107040 WF. IWF= 000020 
VAM = 000200 G WF. IWR= 000100 
| UNITN | O02172 G WF. T3R= 2 
UNREC © WF: T4R= 
USI 004121 WRTCHR 010752 
WAITF 016340 G WRTERR 005111 
WC. IFAs TMSG 
WC. IFE= 022200 
WC. IGO= 1 XFERAS 016030 
WC. IRE= 000010 XNXM 016466 
WC. IRW= 000004 XORBFO 007764 


- ABS. 114404 00082 = ss« CRW, I,GBL.ABS, 
000000 001 CRW,I,LCL, REL. 

ABS 000000 002 (RW. I.LCL, REL, 

Errors detected: 0O 


aes Assembler statistics 


Work file reads: 322 

Work file writes: 308 

Size of work file: 28912 Words ( 435 
Size of core pool: 19714 Words ( 7 
Operating system: RSX-11M/PLUS (under 


El time: 00:14:25.40 
CvTSscc, CvT. 


) 
COND 
CON) 


pragee? 
eta ns) 


x s 
XSOPED= 
XSORLL = 
XSORLS= 


010102 
000006 


AHA 


XSOTMK= 


X2.RCE= 


SEQ 0329 


L 


